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DBGLIB -- COMMON DEFINITION FILE FOR THE VAX DEBUGGER 


! 
' Version: *v04-000' 


GXXXXXEV 


!® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
:* DIGITAL EQUIPMENT 1 CORPORATION, MAYNARD, MASSACHUSETTS. 
tt ALL RIGHTS RESERVED 


t® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corre 
:® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


® 

w 

® 

® 

® 

te 

aa 

i C OTICE. THIS SOFTWARE R * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. WO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
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is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE W11HOUT . s 
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*® 

& 

® 

& 

® 
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E wii 
't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITA 
:* CORPORATION. 


tt DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
tt SOFTWARE ON EQUIPMENT WHICH iS NOT SUPPLIED BY DIGITAL. 


NOTIC 
UIPMEN 
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i WRITTEN BY 
Bert Beander June, 1980. 


i MODIFIED BY 
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i MODULE FUNCTION: 
This REQUIRE file contains all Literal, macro, and data structure defin- 
—2 weed by new Bliss modules in the Debugger. Old Bliss modules do 
not use 3 
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— — — —— —— 


DBGLIB.REQ;1 16-SEP-1984 16:48:58.59 Page 2 


TABLE OF CONTENTS 


General Debugger Definitions ......e. eee 
Data Structure Definition and Access ... 2. se ee eee 
Bliss-32 Lenquage Catenetens +64 ce aeewn teen ed 
E rror Report ng on a oO . > . o o oa — 2 . oe 2 . _ . a . 2 7 
DEBUG Output a ros . ~~ . . oo . . ce — oo . oO oa oe 2 a oO . 8 
Mieesilonedus iterates ssc 649 


Address Descriptor Definitions .. 1.6.26 2s ee eee ee 15 
Address Expression Descriptor Definitions .....4+++. 16 
Command Execution Tree Definitions ......+4+e+s+eeee IW 
Command Input Stream Definitions .. 1... see eee eee 19 
Cenerek Flags «+ co tc toe ESB — 
Define Symbol Table Definitions .......4+6+6+6+4686ee8 22 
Error Stetws Codes 2 csc cme eens ensenatansecunss @ 


Event Veble Entry Oefinitions ..c». csc ees ennvees ¢6 
Event Table Entry for Break of Trace Point ....... 30 
Event Table Entry for Threaded Code Event Point .... 31 
Event Table Entry for /READ, /WRITE, /MODIFY .....-. 3 
Event Table Entry for /CALL, /BRANCH, /INSTRUCTION ... 
Event Vabie Entry Cor SIP ccc cst Be eee ees OR 
evens Stesetag Oeecrigter cect ssn ecueesntsn OB 
evens 0G Liet Deeceteeer ci cae eeen ec stsvecous Bw 
Sven UNER Seecripeer 6c bss eC DHE HPSEe BR OCD HN 
pueng Poge DPenerteter «sae eect ben neacn een BD 

Free Memory Mana nt J 7 * . J s. . oe . . . . 4— . so o oO s. 2 39 
Format of a Free Memory Block ....2.2e2ee eee ee 39 
Format of an Allocated —— Mek nt keen cuvanwe & 
Overall Structure of Memory Pool ......2+2+-se2eee 42 
Temporary Memory Blocks ...+26-2+e2ee 2 ee eeeee 4b 

Image File Header Definitions .....2.-2e-sesee eee — & 
Image Header Symbol Table Descriptor .....+-+-+-+e 45 
Image File Debug Module Table (DMT) .....24+2+4+-ee+42 4? 


Least Recently Used Module Table Definitions ......424-. 49 
Lexical Scanner Character Table .. 


. 
e 
e 
e 
e 
e 
— 
e 
. 
— 
. 
8 


Lexical Token Entry ew ee ee 
Operand Lexical Token Entry 
Operator Lexical Token Entry 
Terminator Lexical Token Entry 


— — — — — — — — — — — — — ee —— —— —— — — — — — — — — — — — — — — — — —— 


Linked List Mode ieſſeeeeeeee66 


—————— ⸗ — — e —— — 


1 
DBGLIB.REQ;1 16-SEP-1984 16:48:59.59 Page 3 


Moved DST Entry Definitions ....2.42e2csceeesssecseees 62 
Number Scanner State Table .....6++6seeee 66 
Gpereter intermetion Yable «ccs settee vecvewnsse 
Operator Routine Table ..... ee esse ecveveese 68 
Type Gregh cet uese ences @ ee ene nseesna © 


Type, Conversion Information Table ....+6+e-+eeeees 277 
Twee Convers Beery 2 so we eh OES KOE HEHE EOS FO 


Pathname Descriptor Definitions ......2.6+2+2e2e 2s 79 
Permanent Symbol Descriptor Definitions ......++e++s. 81 
Predeclared Identifier Entry ......s+s-e ee ese eee 83 


Primary and Value Descriptor Header a aetann 
Primary and Value Descriptor Header for COBOL and PL/I . 86 
— Descriptor Definitions ....- 2.222 eee ee = 88 
mary Descriptor Root Node . ies ee eeeeaane OF 
Primary Descriptor Normal Sub-Node- ‘aéiatea@eatesés 
Primary Descriptor Array Sub-Node .....+2+4-e+2ee2 93 
Primary Descriptor Record Sub-Node .....+2++2+2-e 96 
Primary Descriptor Variant Sub-Node .....+2+2e52e+e+ 9 
Prtaery Parser State 66 
Praet Sadesmetten Febte Ts. cs dc 6(6(60 
Register Descriptor Definitions .....+-+-se +222 « « 106 
Run-Time Symbol Table (RST) Definitions a oe oe ee oe ee ee 
RST Gnery Common Care ik a ik & OH BROOKE Hew SD 6 TOO 
OS7 Bnere for 6 Bethe 6K KOS oe ee TO 
RST Entry for a Routine’. es... e Sk ee SS OO ee Be 
RST Entry for a Lexical bah n/a a ee see ee 
RST Entry for a Satry Opin 14. a. kb & 6 6% oe S See eS EES 
RST Entry for an Instruction Label ....... +2 « « 116 
RST Entry for a Line Number 2 oe . . . . . 2 oe . . . oe e 117 
RST Entry for ; Data Symbol < ¢.o aoe oe et ee ee 138 

RST Entry for a Data Type Component i ee i ee ie ee 
RST Entry for a Data Ty o . .* o _ . . o av J . 1 1 
RST Entry for a Record” — — ee as ae as ae ca a Se 
RST Entry for on Invocation Number ...... +++ «2 « 126 
RST Entry for an Overloaded Symbol ......2.+-+-+-e- le? 


° 
. 
o 
6 
. 
o 
> 
° 
© 
7 
_ 
™ 
co 


Scope List Definitions ......2-e+e-. 
Screen Display Entry Definitions ..... +2 ee ee ee © « 129 


ee — rr rr — ee — — — — — — — — — — — — — — — — — ee te ee —— —— 


Screen Display Line Entry De — *— ih ink be) oe ae ; 
Normal Display L nt ‘ 
Normal Display Line Entry with Rendition Vector ....1 


DBGLIB.REQ;1 16-SEP-1984 16:48:55.58 Page 4 


Seurce Otaplay Line Entry wc sce esas scecvsvsee 19 
Screen Pasteboard Entry Definitions .....4.542eee0 £37 
Screen Window Entry def init ſennn 0 139 
sour ures Birezeory Search List Header Black i 

Source Directory Search List Entry sos. 2212211 Vee 
Source (tte Control Giewh cnet nsec esnca net ce MS 
Beurees File 1 Table «occ oc aes sivas eenne ses oo 46 
Source File Record File Address Table .....6.242e00- 147 
Static Address Table (SAT) Definitions ....... +... + 148 
Velue Sescripter Befinitions 2.2 ccc sree sntstivnsnee se 19 


Ot6 bebugger Geftwiefens 2. nits 66 


— — — — — — — — — — — — — — — — — — — —— 


GENERAL DEBUGGER DEFINITIONS 


The declarations in this section define 2 of general utility 
throughout the Debugger. This includes widely used Literals and 
various utility macros. 


& 
1% 
+ 


Here we declare all the macros used to define and acccess BLISS data 
structures. These are the names L_, W_, B_, WO_, Wi_, and so forth. 
The actual definitions are in a separate REQUIRE file, but they are 
required for the LIBRARY compilation of the present REQUIRE file. 


— 

J 

! 

— 

— 

t 

‘ 

' 

| 

— 

' 

— 

DATA STRUCTURE DEFINITION AND ACCESS 
' 

' 

' 

1 

' 

J 

LIBRARY "LIBS:STRUCDEF .L32°; 


BLISS-32 LANGUAGE EXTENSIONS 


ee¢ 
Here we declare various minor extensions to the Bliss-32 lLangauge. 
LITERAL 
TRUE = 1, ! Define TRUE and FALSE 
FALSE = 0; : 
‘ete 
MACRO 
REPEAT = .HILE 1 DOZ, ! Infinite Loop 


! ZEROCOR zeroes an area of memory. The two parameters are ADDRESS and COUNT, 
! which are the address of the area to be zeroed and the number of contiguous 
longwords to be zeroed, respectively. ‘ 


ZEROCOR (ADDRESS, COUNT) = 
CHSFILL (0, (COUNT) * 4, CHSPTR (ADDRESS))%, 


ONEOF (xX) (] = 
(MASK (ZREMAINING)) * (X) LSS 0%, 


OR_OP (x) [) = 
ORZ, 


MASK (xX) [J] = 
1 * (31K) OR_OP (ZREMAINING) MASK (ZREMAINING)%, 
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CHSSEQUENCE (N) = 
VECTOR CCHSALLOCATION (N)J%, 


CONSECUTIVE CX] = LITERAL X = %COUNT2; 
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ERROR REPORTING 


The following macro is used for reporting internal DEBUG coding errors 
symbolically. The macro is used as follows: 


SDBG_ERROR("MODNAME\ROUTNAME number '); 


This * the internal DEBUG error message DBGS_INTERR which prints 

the text of the macro parameter. The convention is that this parameter 

should include the module name and the routine name of the signal loca- 

tion so that the potat where the error was signalled can be easil 

determined by DEBUG developers. In addition, a number may be included 

in the signal text to make the text unique when there is more than one 
G_ERROR invocation in the same routine. 


MACRO $SDBG_ERROR (STRING) = 
SIGNAL” (DBG$_INTERR, 1, UPLIT BYTE (%ASCIC STRING) 
aif ZLENGTH GTR 1 


HEN 
ZREMAINING) 
rELSE 


SFI 2%; 
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' 

i 

i 

i 
MACRO 


DEBUG OUTPUT MACROS 


The —— MACROs are used in several places in the debugger 
to do formatted ASCII output (SFAO). 


! SFAO_STG_COUNT makes a counted byte string out of an ASCII string. 
! This macro is useful to transform an FAO control string into the 

! address of such a string, whose first byte contains the Length of 
: the string in bytes. 

SFAO_STG COUNT (STRING) = 

OPLIT BYTE (XCHARCOUNT (STRING), Z%ASCII STRING), 


! SFAO_TT_OUT constructs a call to FAO with a control string, and some 
: erquaents to the control string. This formatted string is then 
output to the output device. 


! 
! 
' 
' 
$FAO_TT_OUT (CTL_STRING) = 
DBGSFAO OUT ($FAO_STG_COUNT (CTL_STRING) 
RIF ZLENGTH GIR 1 


ZTHEN 
ZREMAINING 
£F 1 


2; 
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MISCELLANEOUS LITERALS 


This section defines literals which are used throughout the Debugger but 
which do not belong with any specific data structures. 


' 
' 
i 
i 
i 
L 


These four Literals are used to index into the DBGS$GB_RADIX byte vector. 

ITERAL | 
| DBG$B_RADIX_INPUT = 0, 
DBG$B_RADIX_OUTPUT = 1, 
DBGS$B_RADIX_OUTPUT_OVER = 2; 


1s Ascii character Literals 
| LITERAL 


! Define unary operators too 


DBG$K_UNARY_PLUS 
DBG$K"UNARY—MINUS 


| 
DBGSK_LCBIAS = 32, ! Lower case bias | 
DBGSK_ = 9 ' Horizontal tab 
DBGSK~ SEMICOLON = 59, tt 
DBG$K~CAR_RETURN = 13; i <tr> 
DBGSK~LINE_FEED = 10; i <lf> | 
DBGSK_NUL = 9 ' Null character 
DBGSK-EX POINT = 3$, ivy 
BGS$K “BL = 32, pe | 
DBGSK AMPERSAND = 38, i oge | 
| DBG$K"AT_SIGN = 64, i sgt 
DBGS$K~SLASH s 47, ‘Be bs 
DBG$K ~BACKSLASH = 92, i eye | 
DBG$K~EQUAL = 61, it, | 
DBG$K~C = 44, BA, | 
DBG$K DOT = 46, fee 
DBG$K~COLON = 58, ivy 
DBG$K UPARROW = 94; i eas 
DBG$K~ QUOTE = 39, i over 
DBGSK"LEFT PARENTHESIS = 40, i sce 
DBG$K-RIGHT PARENTHESIS = 41, ioe be | 
DBGS$K—MULTIPLY = 4g. i tet 
DBGSK~PLUS = 43, i tye 
| DBGSK~MINUS = 45. i tes 
DBG$K~DIVIDE = DBGS$K_SLASH, i eye 
DBG$K_DBLQUOTE = 34, - 


“wu 
ror 
Ww 
20 
eee 


| § Object type literals. These values are used by the -ddress Expression 

! Interpreter and the Command Language Interpreter to dentity the objects 

: returned by the Address Expression Interpreter, Some of these values also 
! appear in certain descriptors including the Primary, Value, and Address 

: Expression descriptors. 

2 


ITERAL 
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DBGSK_MIN_DESCR_TYPE 
DBGSK-LITERAL 


C 
UCTION 
INSTRUCTION 
=NC-OTHER 
DBGSK_OTRER 
DBGSK_NOTYPE 
DBGSK_EXTERNAL_DESC 
DBGSK_VAX_DESC 
DBGSK"V VALUE _DESC 


S 
DBGS$K_ INSTRUCT 
DBGSK NC 


DBGS$K_AE 


DBGS$K_MAX_DESCR_TYPE 


: Define the Radix Literals. 


LITERAL 
| 


DBGSK_DEFAULT 
DBGSK~BINARY 
DBGSK~OCTAL 


DBGSK _DECIMAL 
DBGSK _HEX 


——Con — 


6, 
6; 


Define Pseudo-Symbol codes. 


LITERAL 


Token 
LITERAL 


DBGS$K_CURRENT_LOC 
DBGS$K~ PREDECESSOR 
DBGS$K~SUCCESSOR 
SK"LAST_ VALUE 
DBGSK~INDIRECTION 


IIWrnonornononorororononorn 


NO OONOULS WOO 
ese ee eeseeee — 


— — — — — — — — — — — — — — 


132; 


! in the AED to tell that the 
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Used in FROM clause of CASE 
Literal value 

Primary descriptor 

Value descriptor 

Permanent Symbol descriotor 
Instruction 

Named constant, instruction type 
Named constant, not instruction 
Langua e-specific data type 


! Virtual address without any type 
! External (printable) format 


VAX standard descriptor 

Volatile Value descriptor 

This code appears in the DBG$B_DHDR_TYPE 

field of the new primary descriptor 

and also in the gt ee ye place 
escriptor 

is an AED and not a new-style descriptor. 

Used in TO clause of CASE. 


Default source Language radix 
Binary radix 

Octal radix. 

Decimal radix — 

Hexadecimal radix 


Current location 
Previous location 
Next location <CR> 
Last value V 


$k_CURRENT LOC; 


: An alfernative meaning of "’."' 


is indirection 


type Literals. These are used by the Pathname Parser and scanners. 


DBG$K~ TOK" QNAME 
DBGS$K~ TOK-LOWEST 


5 


6 


Null or 9 token 


toke 
integer token 
*.* oxen - 
*ZREGISTER® token 
*ZNAME® token 


DBGSK_TOK_NULL, 
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DBGS$K_TOK _HIGHEST 
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=DBG$K_TOK_QNAME; 


_; Return state values for the Pathname Parser 


LITERAL 


| DBG$K~LABEL 
1 
LITERAL 
DBGS$K -ALLOCATE VERB 


DBGSK_AT_SIGN JER 
DBGSK_ATTACH VERE” 
DBGSK-C VERB 


oe 
a 
qa <2 
m<om 
2 
@ 


“EXIT _VERB 
—8 “Ex WCOOP VERB 
DBGSK_FOR_VERB™ 
DBG$K_GO OER ERB 
DBGS$K_HECP VERB 
DBGSK-IF_V 

DBGSK “REPEAT VERB 
DBG RA 


dB 

DBGSK"TYPE_VERB™ 
DBG$K SKTUNDEF INE VERB 
DBGSK-WHILE_VERB 


DBGSK_FIRST VERB 
DBGSK-LAST_VERB 


EVENTSK_SET_BREAK 
EVENTSK_SET~ aphex EXC 
EVENTSK~ SET" TRACE” 
EVENTSK~SET"WATCH 


BN 100 SW OPN S DONOWINI NI UWWI V —F 


Oo ~m 
. * 


ne Oe es 
— 


ese 8 


NE EWN @"OOMO HK DWOUP UO = = WO: 


ee ©@eeeseeese ee 8&8 & & 8 & 


BGS$K_ 
* 


Data reference or lexical reference 
Re ister reference 

"ZLINE' relerenee. 

"ZLABEL' reference 


_! Command verb Literals. These are used by the Command Line Interpreter. 


ALLOCATE 
ATTACH 
CALL 


CANCEL 

DECLARE 

DEFINE 

DELETE 

DEPOSIT 

DISPLAY 

— (Only for developer use) 


S 
SYMBOL IZE 
TY 


UNDEF INE 
WHILE 


IGN_ VERB, 
ERB, 


GNSET 
— in DBGNSET 


v 
so SET 
so SET 
so SET 
so SET BONSET 
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DBGLIB.REQ;1 2 
EVENTSK SET STEP = 11, ! Also SET STEP in DBGNSET 
EVENTSK “STEP = 12; | Also DBGSK_STEP_VERB 
EVENTSK_SHOW_BREAK = 1 ! Also SHOW_BREAK in DBGNSHOW 
EVENTSK-SHOW-TRACE © = 11, / Also SHOWTTRACE in DBGNSHOW 
EVENTSK—SHOW-WATCH = 14, / Also SHOWTWATCH in DBGNSHOW 

EVENTSK_CANCEL_BREAK = 2,  ! Also CANCEL_BREAK in DBGNCANCL 

. EVENTSK CANCEL ~BREAK -Exc= 4; =? Also CANCELTEXCEPTION BREAK in DBGNCANCL 
EVENTSK_CANCEL_TRACE = 9 ' Also CANCEL-TRACE in 686 
EVENTSK-CANCEL_WATCH = 14; / Also CANCEL“WATCH in DBENCANEL 


' ve kind literals. These values are returned as ‘value kinds" by routines 
i DBGSSTA _SYMVALUE and DBGSSTA_VALSPEC. 


CITERAL 
DBGSK_VAL_NOVALUE ! Symbol is a type and has no value 
' Value is a literal 
' Value is an address 
' Value is a descriptor pointer 
! Symbol was never allocated and 
! hence has no value 


2 
iy 
» 
nueunn 
fwn—o 


DBGSK_VAL_UNALLOC 


! Debug specific DTYPE codes which are used in DBGNEXMNE. 
These codes are TEMPORAR 


LITERAL 
DBGSK_DTYPE_AD = 56; ! ASCID string 
} Maximum number of digits in a packed decimal number. 
LITERAL 
DBGSK_LARGEST_PACKED = 31; 
! PL/I specific data type codes. These are referenced in DBGPERMOP and in 
: DBGEVALOP in calls to the PL/I RTL during type conversions and calculations. 
LITERAL 


G$K_PLI_PIC 21. 

— [ — — 
DBG$K"PLI“FLO-BIN = 3, 
DBG$K~PLI~F IX"DEC = 4° 

| DBG$K~PL I~ FLO-DEC = 5 
DBG$K-PLI~CHAR = 16, 
| DBG$K"PL I~ CHAR_VAR = 11, 
— = 12, 
DBG$K"PLI~ABIT = 14; 


Debug Print Control Code. 
LITERAL 


— — ———— — ——— — — —— — —— — —— —— 


DBGLIB.REQ;1 
DBGSK_PRTSET_LMARGIN 
DBGSK~PRTSET-RLMARGIN 

DBGSK_PRTBRK ON. BLANK 
DBGS$K~PRTSET~ CONTINUE 
DBGSK~PRT_RESET 


nnunnnn 
Urwrn— 


ees — & & 
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Set left margin for ——n 
Set relative left margin 
Set break on blanks f + 
Set indentation Length for continuation 
Reset to default settings 


ss — — — — — — — —— — — — — — — ee 
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. Input string d scr iptor definition. This definition is compatable with the 
li use of the DSCSB_DTYPE, DSCSB_CLASS, DSCSW_LENGTH, and DSCSA_POINTER macros. 
LITERAL 

DBGSK_STG_DESC_SIZE = 12; ! Length of descriptor in bytes 


MACRO 
DBGSSTG_DESC = BLOCK CDBGSK_STG_DESC_SIZE, BYTE] %; 


SE ee ne FEN TS SENET es ee OE TO Se SRR Oe A I ae 


H 
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ADDRESS DESCRIPTORS 


The Address Descriptor is used to define an address where a bit offset 
is needed in addition to a byte address. 


10585882 e883 6987654321098765463210 
ewww www nee nnn n wenn nnn woceooonne reer 


~ DBGSL ~ADDRESS_BYTE_ADDR ' 


+ eeeecee wer eee * — — —— — 2 nr = = = 4 


DBGS$L_ADDRESS_BIT_OFFSET H 


—- & 


A pointer to an Address Descriptor is declared as follows: 
ADDPTR: REF DBGSADDRESS_DESC; 


: Define the fields in the Address Descriptor. Also define the declaration 
' macro. 
‘ees 


FIELD Beep eeness DESC_FIELDS = 


DBGSL_ADDRESS_BYTE_ADDR = f 0. L. }- : N address 
ot ADDRESS BIT_OFFSET = ° ! Bit offset 


LITERAL : 
DBGSK_ADDRESS_DESC_SIZE = 2; ! Size of descriptor in longwords 


MACRO 
DBGSADDRESS_DESC = BLOCKCDBG$K_ADDRESS 


DESC SIZE] 
F IELD(DBGSADDRESS_DESC 


C FTEL DS) %; 


— — — — — —— —— — — — —— —— — ——— 


— 


C+ — —— — — ——— — — — — — ee 
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— — — — — — — — — — — — — — — — sss th 
mmm ee — — — — — — — — — ·— 


ADDRESS EXPRESSION DESCRIPTORS 


The Address Expression Descriptor is used to define an address expres- 
sion. It has the following structure: 


PELESSSSSSOEUESESSTSEL IESE ETE 
222 —E—— ———— — Se ens 


0 ; ‘DBG$B_AED_SIGNATURE} ‘DBGSB_AED_TYPE | 


erm en ecmemeeeeae Ce we Se (0 St a ee ae om me oe 4 


DBGSL_AED_VALUE ' 


J 
' 
'‘ 
' 
' 
' 
' 
' 
' 
' 
' 
! 
' 
' 
i] 
‘ oman omname ee eee em cme me Dem Re ee 62 Gn ee en ce ae me a en os ee eo oem + 
' 
J 
' 
‘ 
' 
i] 
' 
i 
i 
i 
i 
: 


A pointer to an Address Expression Descriptor is declared as follows: 
AEDPTR: REF DBGSAED 
Define the fields in the Address Expression Descriptor. Also define the 
declaration macro. 
IELD DBGSAED_FIELDS = 
ay -AED_TYPE =[( 0, BO. J, ! The type of the value field 


DBG$B_AED-SIGNATURE = (8. “B2_],. ! Always contains a cote DBGS$K_AED 
: saying this is an 


pecst._ AED_VALUE = [ 1, L_ J] i L-value or pointer to —B 
LITERAL 

DBGSK_AED_SIZE = 2; ! Size of descriptor in longwords 
MACRO 


DBGSAED = BLOCKCDBGSK_AED_SIZE] FIELD(DBGSAED_FIELDS) 2%; 


The following are the legal values for the DBG$B_AED_TYPE field. 
DBG$K_PRIMARY_DESC 
: DBGSK_PERM_DESC 


i DBGSK_ pee Teer age 
; DOGSK_ NOT YPE 


! The et field oy he A 2 address 
i @ primary descrip 

i The soles field contains the address 
i of a permanent s syne’ Sever ieter 
i The value Meld contains a PC value 

; Tne eplue Teens contains an —— 

· va lue 


— — — — 


* — — — —— ———— — — — — — — — 
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COMMAND EXECUTION TREES 


This section contains the definitions for the nodes that are part of a 
execution tree. A command execution tree is built when a debug 
command is parsed. The tree contains a verb node ty Om om sy the command 
(e.g., EXAMINE, DEPOSIT, etc.) as the header node. Linked to the verb node 
are chains of adverb nodes and noun nodes. The noun node chain hangs off 
the OBJECT_PTR field and the adverb node chain nengs off aaa ADVERG_PTR 

⸗ 


field. The exact structure of the tree depends on command. 
VERB NODES 
mow mamos eoeeeoeeoe eee orem eee ee twee eee ee ee moons} come ce cosmo weset} 
8 SSeS ESE — ——— — 
DBGSL_VERB_ADVERB_PTR H 
Pies ae est “DBGSL_VERB_OBJECTPTR x 


-~™ 


Geen nme enmaane @weeenrenees eee een nea aana — 22— 2—24 


— we NODE _FIELDS = 


DBG$B ven LITERAL = (0, 0, 8 0), ' First level verb 
DBG$B_VERB_ COMPOSITE = (0, 8 8, 0) ! Second or third level verb 
DBGSL-VERB-ADVERB_PTR = (1, 0, 38. 04, i Pointer to adverb node 
DBGSL_VERB_OBJECT“PTR = (2, 0, 32, 0) ! Pointer to object (noun node) 
TES; t 

LITERAL 
DBGSK_VERB_NODE_SIZE = 3; ! Length in longwords 

MACRO 
DBGSVERB_NODE = BLOCK CDBGS$K_VERB_NODE_SIZE] FIELD (DBGSVERB_NODE_FIELDS) %; 

Ai ADVERB NODES 

i $owewowwoocecce cow oooenonne weeeeeooecoee 4 — —— 

0 : : “ADVERB. LITERAL: 

i torre weer en sonora e — — 

1 : DBG$L_ADVERB_VALUE ‘ 

2 ; DBGSL_ADVERB_L INK ‘ 

IEL 


| command 
i 
1 
FIELD 
F 


) 
oon: am NODE _FIELDS = 


:  pBGSB tee Re LITERAL 
* — DBGSLTADVERB~ VALUE 


"9 ' Adverb id Literal 
DBGSL~ “ADVERB” “LINK }. 


i Value (integer) 
! Link to next adverb node 


“uw 
err 
No 
eee 
ooo 
eee 
WiWioo 
PORR 
se. 


— — — — — — — 


| DBGLIB.REQ;1 
| 
LITERA 
 ppcsk -ADVERB_NODE_SIZE = 3; ! Length in longwords 
MACRO 
DBGSADVERB_NODE = BLOCK CDBGSK_ADVERB_NODE_SIZE] FIELD (DBGSADVERB_NODE_FIELDS) %; 
NOUN NODES 
: 0 : . DBGSL_NOUN_VALUE ! 
ee! DBGSL_ADJECTIVE_PTR i 
: P~3 DBGS$L_NOUN_LINK i 
2? : DBGSL_NOUN_VALUE2 \ 
SGSL LUE = (0, L. J,! Noun value 
DBeSt “ADJECTIVE .PTR = £ 1, L- J,! Pointer to adjective (unused) 
0B LINK” = ¢ L_ J.! Pointer to next noun 
DBGS$L_NOUN VALUE = - L. -J.! Additional Noun value 
DBGS$L_NOUN_V = (4, L. J,! More Noun value (long nodes only) 
pegs. NOUN_ “VALUES = (5, L. J ! More Noun value (long nodes only) 


DBGSNOUN_NODE = BLOCK CDBGSK_NOUN_NODE_SIZE] FIELD (DBGSNOUN_NODE_FIELDS) 2; 


—— 


FIELD a ae NODE _FIELDS = 
LITERAL 
MACRO 
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4, ! Length of normal Noun Node in longwords 
6; | Length of long Noun Node in Longwords 


Ee eee — ö— — e — ——— — —— 
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| COMMAND INPUT STREAM 

| The Command Input Stream (CIS) is a Linked List that the debugger 
maintains to describe where it is currently taking input from. 

| The format of a Command Input Stream Descriptor is: 


— 
— — 


DS Section —— 
1 3 CISSA_INPUT_PTR t 
[CLR ET, 
— OSA — — 
ee Ss SR —— — 
Feige BEE Fn RO TR 
og NT ae 
of RI APTN Sa a nn 
pi) ETE —— 1 snc ee aa NEA EIR, 
ed RE IE Tan naa er ee 


4 CIS$L_SCREEN_SOURCE ' 


poor ee seer eee sme me — ome MOE OOO E BED EEO —4 


. 4 CIS$L_SCREEN_ERROR i 


1 
— 
— 
J 
' 
i 
‘ + — —— — — Se wren rT — ee 2B FFT OZ OCF — oot 
' 
i 


12 : CISSA_BUFLIST H 
13 i i CISSW_WHILE_LENGTH i 
B pptater to a command input stream descriptor block is declared 
with: 
CIS_PTR: REF CISSLINK 


Define the fields, the descriptor size, and the declaration macro. 


FIELD CIS FIELDS = 
SET 


CIS$B_INPUT_TYPE 
C1S$W~LENGTA 
CIS$A~INPUT_PTR 


! Length of input buffer 
! Pointer to input buffer 


hun 
eoCrrTr 


B_ } ! Type of CIS Link 
L 


ed 


⸗ ⸗ —ñ ⸗ —ñ —ñ —ñe — — — — — —— 


| 
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| 


CISSA_NEXT_LINK = $ L. J, ! Ptr to next cis Link 
CISSA_INIT-ADDR = . C. J. | Ptr to start of in ut buffer 
CISSW_LINIT LENGTH = [ 16, WL ! Allocated buffer gcse 
CISSV-REM FLAG = [ 18, v=(05].! Is link flagged for removal? 
CISSV-WHICE FLAG = € 18, V=(1)J,! TRUE when condition 
CISS$VUSCREER_NOGO = C 18, V=(2)],! Saved NOGO flag to turn ott STEPs 
q and GOs in CIS got hcen entries 

CISSA_WHILE_ CLAUSE ={ 20, L_ 4 Pointer to UHILE command 
CISSL_REPEAT COUNT =C 24, L ! Count for REPEAT Loops 
C1SSL~FOR_UPPER BOUND=(24, C_4,! Upper bound for FOR Loops 
CISSA_FOR_LOOP_QJAR = » L.-J, ! Pointer to the FOR 28 var name 
CISSL_FOR oy! INCR » LJ, ! Increment for FOR | gaps 
CISSL_SCREEN_OOTPUT= » Lo J. ! Reset value for DBGS$GL_SCREEN_OUTPUT 
CISSL_SCREEN_SOURCE=[ 40, L_ J, ! Reset value for DBGSGL_SCREEN_ sours + 
CISSL_SCREEN ERROR = = 44, L_ J, ! Reset value for DBG$GL_SCREEN-ERR 
CIS$A_BUFLIST 44 L. J. ! List of buffers to free in CIS_ REMOVE 
CISSWIWHILE_LENGTH =C 52. Wa 
TES; 

LITERAL 
CIS_ELEMENTS = 54; ! CIS block size (bytes) 

MACRO 


CISSLINK = BLOCK CCIS_ELEMENTS, BYTE] FIELD(CIS_FIELDS) 2%; 


: The following are legal types for CIS Links. 


LITERAL 
DBG$K_CIS_MINI = 0, ' Lowest —RX cis 
DBG$K_C1IS_DBGSINPUT = 0. ! Type D 
DBGSK_CIS_RAB * Bs ! Type R 
DBGSK_C1S_INPBUF = ¢- ' Type —* buffer 
DBGS$K_C1IS_ACBUF = 3, ! Type action buffer 
DBGSK_CIS_REPEAT = 4, ! Type r repeat by *** 
DBGSK_CIS_WHILE = 5, ! Type while buffer 
DBGSK_CIS_IF = 6, ! Type "f buffer 
DBGSK_CIS_FOR » Te } Type for buffer 
DBG$K_C1S_SCREEN = z; Type e for Screen Display 
DBGSK_CIS_MAX IMUM = 8; ! Highest type CIS 


! The definitions below should eventually be eliminated when all uses of 
i them are converted to the DBGSK_ form. 


LITERAL 
CIS_DBGSINPUT = 9. ! Type DBGSINPUT 
CIS_RAB = 1, ! Type 
— = ¢ ! Type inpyt buffer 
CIS_ACBUF = 3, ' Type action buffer 
CIS"REPEAT = 4, ! Type repeat buffer 
CIS_WHILE e %, ' Type while buffer 
CIS_IF a g. ! Type bu 
CIS_FOR = 7@, ! Type for buffer 
CIS_SCREEN = 8; ! Type for Screen Display 


— — 


CONTROL 


overall flow of 
of DEBUG. 


DBG$V_CONTROL_TDBG 
DBGS$V~CONTROL~SDBG 
DBG$V~CONTROL _KDBG 
DBGS$V~ CONTROL —URUN 


DBG$V_CONTROL _USER 
DBG$V~ CONTROL STOP 


DBGS$V_CONTROL_TBIT 
DBGS$V_CONTROL_SCREEN 


FLAGS 


Control flags are ge DEBUG status flags used to control the 
DEBUG execution. They represent the major state 


ss 8: & ses 8 & 


oe NOUS WhO 


—_ 
So 
. 


11, 


DBGSV_CONTROL_VERSION_4 = 12; 
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Set if this is a testable DEBUG 

Set if this is SUPERDEBUG 

Reserved for future deve.opment 

Set if user proores has been run to 
stop DEBUG ay memory 

Set if DEBUG is about to EXIT 

Set by DEBUG internal errors 

user execution complete 

Set if OK to allocate more memory 
(e.g., SET MODULE/ALLOCATE) 

Set if user program is runnin 

Set by “Y,DEBUG sequence to abort 
process ina DEBUG command files 

Used by DBGEVENT and DBGSTART to 
control AST/TBIT interactions. 

Set if screen displays must be updated 
because user progres has run 

Set if VMS 3B or 4.0 is running 


We also define a macro SABORT_ON_CONTROL_Y. The purpose of this macro is 
to allow premature termination of commands which can take a large amount 


sure that the 


state. Execution of this macro wil 


leave all DEBUGs internal data structures in a consistent 
have no effect if the Control-Y fla 


1 
i 
: of time to complete but to allow the individual command routines to make 
i 
i 


is clear, but will SIGNAL back to DEBUG command level if the flag is se 


MACRO SABORT ON_CONTROL_Y = 


EXTERNAL DBGSGV_CONTROL : BITVECTOR(); 
Je ,tOtORt CONTA LOOSEN CONTA, S1OP 2 THEN SIGNAL (DBG$_ABORTED) ; 


— — |; 
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DEFINE SYMBOL TABLE 


The Define Symbol Table contains information about the symbols 
that are currently defined with the DEFINE command. 


ppere is a doubly Linked 4 *3 alt — v ioeg symbols. 
(l.e., symbols defined with cPINe PT == <definition>) 

The global veriable DBGSGL —XW DEFINEPTR po.nts to this, list. 

For each command procedure that is active, there may also 

be a define List that is local to the procedure. The variable 

DBGSGL *LOCAL “DEFINE PTR points to a 25 Linked List of header 

~ ye s. —— “header block points to a doubly-linked List 

of symbols. 


Pictorially, | 


LOCAL_DEFINE_PTR => | header i: <=> } header 1 <*> .ee 


The format of a header block is: 


332222222222111 
109876543210987 


BSaas 
5432109876543210 


a 


9 DEFSA_ NEXT_LINK ' 


eo m ane moc aaron DEMO DEE OEE EDEN EO Oe eee ee eee ee —— ont 
; DEFSA_PREV_LINK ; 
ae DEFSA_DEF INE_LIST ; 


22222 Seees ee ew oec —————————— Swern wrnwenres + 


The format of an entry is: 


' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
ji 
i 
i 
i 
i 
i 
i 
| 
i entry | i entry i 
: 
i 
i 
i 
i 
i 
i 
i 
i 
: 
: 
: 
} 
i 


— 2 
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10987654321098765432109876543210 


0: __DEFSA_ENTRY_NEXT_LINK \ 

Zu. ~ DEFSA ~ENTRY_PREV_LINK ! 

ae DEFSA_NAME : | 

a DEF SA_VALUE | 
2222 —E——————— —————— 2222 eer 2 

4 |} _Unused + DEFSB_ KIND ' 


few acer aan Sma wane eens e ee — moaenses eeecece pf meee nracancas woah 


i Define the fields of a DEFINE entry. 
FIELD DEF INE_ ENTRY_FIELDS = 


' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 

F 


DEFSA_ENTRY_NEXT_LINK = f S, t. de ! Forward Link 
DEFSA_ENTRY_PREV_LINK = [ 4, L- J, ! Backward Link 
DEF SA_NAME *{ 8, J. ! Points to a counted 2* 
with the name being defined 
DEF SA_VALUE ot i, t, 2s : Points to a descriptor or 
} counted string. with the 
} ‘value" of the symbol. 
DEF SB_KIND = C 16, BO_ J : Contains a code tor. the "kind" 
: of definition. The codes 
: are defined below. 
TES; 
: Define the fields of a header block. 
> | 
FIELD bere. HEADER_FIELDS = 
DEF SA_NEXT_LINK ={£0,t_.]. ! Forward Link 
DEF SA_PREV"LINK =( 4, LL } ' Backward Link : 
DEFSA “DEFINE LIST 2. ek. ! Points to the Linked List 
TES } of DEFINE entries. | 


: Define the size in bytes and in words of the above structures. 
LITERA 


DBESK _DEFINE_ENTRY_SIZE_8 = 17, 
DBGSK~DEF INE-ENTRY-SIZE-W = 5 
DBGSK~DEF INE~HEADER_SIZE_B = 12, 
DBGSK~DEF INE-HEADER“SIZE_W = 3; 


! Define the codes that will be used for the possible kinds of 
' symbol definitions. 


— N——— ·—————————————— — — — — — — — — —— — —— 
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LITERA 
DEFINE LOWEST = 1, ' Lowest value of DEFINE codes 
DEF INE_ADDRESS = 1, 
DEF INE COMMAND = ¢- 
DEF INE_PROCEDURE = 3, 
DEF INE_STRING = 4, 
DEF INE_VAL WE s 5. 
DEF INE “PARAMETER = 6, ! This is used to temporarily store strings 
' representing actual parameters, until 
i they are bound to formals by the 
: DECLARE command. 
DEF INE_KEY = 7, 
DEF INE_HIGHEST = 7; ! Highest value of DEFINE codes 


: Macros for declaration of DEFINE entries and headers. 


ACRO 
DEFINESENTRY = 
per intioe Bs ee DEFINE_ENTRY_SIZE_B, BYTE] FIELD (DEFINE_ENTRY_FIELDS)2, 
BLOCK COBGS$K_DEFINE_HEADER_SIZE_B, BYTE] FIELD (DEF INE_HEADER_FIELDS)2; 


— ⸗— — — ——————————— —— — — — — — — — — — — — — — — — — —— 
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ERROR STATUS CODES 


Debugger status codes are defined in the MDL file DBGMES.MDL--new ones 
should therefore be entered in that file. ALL that is found here are 
definitions relating to components of status codes. 


1 
i 
i 
i 
i 
i 
i 
i 
i 
Define the possible values of the status severity field. 
L 


ITERAL 
SYSSK_INFO = 3; ! Informational status severity 


— ⸗—— —·——————— — — — — — — —ñ— — ——— —— —— — — —— 
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EVENT TABLE ENTRY 


The Event Table contains all needed information about all set break- 
points, hee ey and watchpoints. for each pet Sven en iat there 
$s one Event able t ntr The exact format of the Event Table Entry 
depends on the nature o “the eventpoint itself, but all Event Table 

Entries have the following general format: 


i — —D — — | 


peewee oceeceoca wwe rene mene nese neo VIJ en en eo meee mwas —22 
— EVENTSL_CMD_FLINK i | 
ae. EVENTSL_CMD_BLINK i | 
2 : _EVENTSL ~EXC_FLINK H 
3: ” EVENTSL_EXC_BLINK i | 
ooo — 

4 } EVENTSL_EXCEPTION ' 
t¢etoesace ö Û»—ööÿÿÿ ——-4 | 

5 i? = i3i2:1:0! BLSUB_KIND { B_CMD_KIND : B_CMD_TYPE ; 

$abewnnntotetutotocesece — pFatatotatutetotototogosat 

6 iB. SAVED_SUB_KIND: - unused - IDICIBiIAIGiBi76iSi4i3si2i1io: 
ee cena es sesecessoussooncoesosesoos$opo}opopososos tepegepetopoepaty 

7 3 EVENTSL_AF TER_COUNT : 
8 EVENTSL_WHEN i | 
rr. EVENTSL_DO : 
freeware ener raecmens sere eoeteoenere Soe sew ——2— eee ee seen one cease @-+ } 
10 : | 
oe The remaining fields depend of the command type 
H ' 
* wee ooo SBE wos ean enenaee — sez ewe sea —— | 
| 


NT$V_SILENT 
NTSV_ THREADED 
N 


E 

E 
1 

E ; 

EVENTSV_RET_AT_PC 
J EVENTSV_DELETED 


EVENTSV_ 444 LINE 
EVENTSV"STEP_LINE 


EVENTSV"STEP_OVER 


wnN-—Oo N MSwoO 


— 
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— VENTSV_OVRD_SOURCE 
5 VENTSV~STEP~SOURCE 
6 VENTSV-OVRD-NOSYSTEM 
VENTSV~STEP~NOSYSTEM 
8 6] EVENTSV~OVRD-NOSILENT 
6) EVENTSV~STEP-NOSILENT 
A 6] EVENTSV_STEP_BPT 
B: 6] EVENTSV-STEB-T1CK 
C: EVENTSV~STEP7LINE_OK 


D: [6] EVENTSV_BREAK_ADDRESS 
A pointer to an Event Table Entry is declared as follows: 
EVENTPTR: REF EVENTSEVENT_DESCRIPTOR 


i Define the fields of the Event Table Entry. 


' size of an Event Table Entry and define t 
FIELD EVENTSEVENT DESCRIPTOR_FIELDS = 
EVENTSA_EVENT_DESCRIPTOR = (0,A_], 


EVENTSL_CMD_FLINK = FO.t}. 
EVENTSL_CMD_BLINK LP te i 


EVENTSL_EXC_FLINK = 
EVENTSL_EXC_BLINK = 


EVENTSL_EXCEPTION = (4,1 ], 
EVENTS8_CMD_TYPE = * 
EVENTSB_CMD_KIND * 5.B1_ 
EVENTS$B8_SUB_KIND J 5 .B2_ 


EVENTSB_CMD_FLAGS (5,83_), 


EVENTSV_SILENT = [5,v3_(0)). 
EVENTSV- THREADED = *v32(1)). 
EVENTSV-ONCE ONLY = [5:V = (9). 
EVENTSV~HAS COAL scr *v3-(3)]. 
EVENTSV_ROUTINE 6334 
EVENTSV-RET_AT_PC = 68335. 
EVENTSV_DELETED = (5,Vv3_(7)), 
EVENTSL_STEP_FLAGS = (6,L_), 

EVENTSV_OVRD_LINE = ([6.V_( 00), 
EVENTSV“STEP-LINE = ([6,V7( 1)); 
EVENTSV“OVRD-OVER = f6.v"( ¢)), 
EVENTSV"STEP“OVER = [6.V7( 3)): 
EVENTSV~OVRD"SOURCE = [6.V7( 4)3: 


Also declare the maximum 
declaration macro. 


! Event Descriptor address 


' Command queue foward Link 
! Command queue backward Link 


' Exception queue forward link 
! Exception queue backward Link 


Exception code we expect to see 


' Command type 

! Command kind 

! Command sub-kind 
! Command flags 


! Flag set if | one qualifier set 


! Flag set is threaded code 
! Flag set 4 temporary event entry 
! Flag set if there * hi Event 


Value Descript 


i Flag set if ROUTI “EventPein 
' Flag set if SET BREARYRET. ney TRACE) 


address is at current PC 


i Flag set if this entry is deleted 


*Stepping’ flags 


Flag set if override step/line 
Flag set if step/Lline 

Flag set if overr de. _step/over 
Flag set if step/ov 


Flag set if override. step/source 


DBGLIB.REQ; 1 16-SEP-1984 16:48:58.38 Page 28 


EVENTSV “STEP -SOURCE = V0 5)). ! Flag set if step/source 

EVENTSV_OVRD_NOSYSTEM = [6,V~( $ - | Flag set if override + a ae 

EVENTSV_STEP_NOSYSTEM = [6,V_( 7)J, ! Flag set if step/nosy 

EVENTSV_OVRD_NOSILENT = (6,V_( 8 - | Flag set if override. otep/nesttent 

EVENTSV"STEP_NOSILENT = (6,V-( 9)], ! Flag set if step/nosilent 

venir _STEP_BPT = 6.V_(19) » | Flag set if step over BPT active 
NTSV_STEP_TICK 6,V_(11)], ! Flag set if new step 

EVENTSV~ SSTEPINOLINE = (6,V~(12)], ! Flag set if Line not found 

EVENTSV_BREAK_ADDRESS = [6,V_(13)], ! Flag set if the prolog address is 


' used 
EVENTSB_SAVED_SUB_KIND= (6,83_], ! Saved value of SUB_KIND 
EVENTSL_AFTER_COUNT = 44 ! after count 
7,L ' Step count 
! Address of a count which keeps 
' track of the number of SSV calls 
! originated from one SSV 


EVENTSL_STEP_COUNT = 
EVENTSL_SSV_COUNT = 


EVENTSL_WHEN = fe t-3: ! WHEN expression pointer 
EVENTSL_USERS_PC = ! User's PC for STEP/RETURN 
244. ! pO — list 


oint 
P for ST P/RETURN and 


EVENTSL_DO = 
EVENTSL_USERS_FP 5 9,L_J. : atts 
: BREAK! TRACES/RETURN skips 


EVENTSL_PRIMARY = 3344: ! Primary pointer 

EVENTSL_OPCODE_LIST = 10,L_J, ! Instruction opcode List 

EVENTSL_ADDRESS = ti eb ade ! Byte address 

EVENTSL_FP_RET_CNT = 11h Je ! Address of a count which hoops 
! track of RET for SSV return levels 

EVENTSL_VALDESC = (12,t_), ! Value descriptor pointer 

EVENTS$B_OPCODE = (12,80_.3, ! Opcode byte 

EVENTSL_ THREAD = [(12,t.), ! Thread 


EVENTSA_VMSDESC = (13,A_], ! VMS Descriptor 


EVENTSL_STEP_LO_PC = 44: ! Step Line lo PC 
EVENTSL_-STEP_HI-PC = 14,L_J, Step Line hi PC 


EVENTSL_CALL_FRAME = [(15,1_] Pointer to Saved value from FP 


TES; 
LITERAL 
EVENTSK_EVENT_DESCRIPTOR_SIZE = 16; ! Descriptor size in longwords 
“"EVENTSEVENT DESCRIPTOR = . 
CEVENTSK EVENT DESCRIPTOR_SIZE) 
Piet TE VENTSEDENT DESCRIPTOR_FIELDS) 2%; 
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: Macro to assign an increasing value to each member of a <name> List, 


; —* with <constant>. 


“"ENURERATE. (CONSTANT, NAME) () = 
ZIF ZNULL (ZREMAINING) 


ZTHEN ZEXITMACRO 


» ENUMERATE (CONSTANT + 1, 


: The following are the allowed values of 


LITE 


EVENTSK_ TYPE-SSINT- 


: The following are the allowed values of 


LITERA 
ENUMERAT ECO, 
EVENTSK -KIND_ACC, 
EVENTSK_KIND_INS, 
EVENTSK_KIND “EXC, 
EVENTSK_ <KIND_SKP 


: The following are the allowed values of 


LITERAL 
ENUMERATE (0, 

EVENTSK_ACC_READ, 
EVENTSK-ACCWRIT. 
EVENTSK-ACC_MDFY, 
EVENTSK-ACCEXEC. 
EVENTSK-ACC-RTRN, 
EVENTSK~INS~CALL. 
EVENTSK—INS_BRAN, 
EVENTSK_INS-LINE, 

VENTSK—INS-EVRY. 
EVENTSK—INS_USER, 
EVENTSK~SKP"READ, 
EVENTSK~SKP"WRIT. 
EVENTSK~SKP~MDF Y, 


ZREMAINING) 2%; 


the EVENTSB_CMD_TYPE field. 


Starting with 0... 
Break 


Trace 
Watch 
Steps 


Skips 
lonored activating an event 
System service Intercept Event 


the EVENTSB_CMD_KIND field. 


—24 with 0... 
Access Ne ta etc.) 
Instruction 
Exception 

kips 


the EVENT$B_SUB_KIND field. 


ptartine we with 0... 
Access ead 

Access Write 
Access Modif 
Access Execute 
Access Return 
Instruction Call 
Instruction Branch 
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EVENTSK_SKP_EXEC, 
EVENTSK~SKP"RTRN, 
) EVENTSK_EXCIEXC 
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oon oOo uw Fe WwW NH =| 0 


oe ai we et oe — 
ww F&F WN —- 0 


EVENT TABLE ENTRY FOR CBREAK! TRACE] C/RETURN] POINTS 


This form of the Event {adte 1.* is eee for ordinary and /RETURN 
s 


breakpoints and tracepoints. hus used whenever the 
implementation of the reyentpotng is to store a BPT Ynetructten at 
the event Location. 

only for COBOL-74), AB. 


RES OSESCSCOCRIUSESSOSOLS ESTES EE 


' EVENTSL_CMD_FLINK i 


Pooemeoencesescoesusceseeseoowenseneseesesseseeoucesecesescesesce + 


' EVENTSL_CMD_BLINK ' 


4 


EVENTSL_EXC_FLINK ' 


4 


EVENTSL_EXC_BLINK i 


| ee 


' EVENTSL_EXCEPTION i 


ve -- — + 


i7i = «t3s2:1i0! BLSUB_LKIND { B_CMD_KIND { B_CMD_TYPE 


$etwocee}opopopofpooeseeessoseseesoco — 242724424 


B. SAVED. SuB. IND - unused - IDICIBIAIDiBi7i6iSi4isi2i1iod: 


Gwoweewescowsooesessesesoesosconscon}os}opososososopopososo 44 4 


EVENTSL_AF TER_COUNT ' 


+ eeeeee@ O6SSSENEONSSOS0TS28S0SS + 
$ EVENTSL_WHEN ‘ 
| EVENTS$L_DO 
‘ EVENTSL_PRIMARY H 
EVENTSL_ADDRESS s 
' Unused {EVENTSB -OPCODE : 
beso nesrce sneer naman eSeeeeeee22 44 


EVENTSA_VMSDESC 


J 


a 
‘ 
‘ 
‘ 
‘ 
‘ 
a 
‘ 
+ 
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s form is not used for threaded code (used 
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o_o oo oe ot et 
uw F&F WN =| SO 


EVENT TABLE ENTRY FOR TREADED CODE EVENT POINTS 


This form of the Event Table Entry is used for breakpoints and 
tracepoints in threaded code. Threaded coee is only used by 
COBOL=74 and is thus obsolescent, but we still support it. 


PES ScSSSCRE LL OSECSOSOUS OSES E SE 
4 


EVENTSL_CMD_FLINK 


$erw eer oeess eer oon ese ee eee cee meowe see ene nee ee cence ore esc eon e went} 


' EVENTSL_CMD_BLINK i 


fewer we se eee meee Owes ee owes See wes wmemeceneeseees} 


i EVENTS! _EXC_FLINK ' 


eee wees tee mmm ome cee se coms ose see ese eee meee ee eee ee ome eee ceo es eee} 


EVENTSL_EXC_BLINK 


+ SOT SC ST SS SGV SlO STH SOS SST —— —— + 


; EVENTSL_EXCEPTION } 


meme sense toaene seoaemaaeocaa$ 


17) = $3:2:7:0! B_LSUB_KIND { B_CMD_KIND { B_CMD_TYPE ;} 


tet¢owonwetopoepotoe 424 


B. SAVED. SUB. IND: - unused - ICIBIAIDIBi 716i 5i4i3i2i1io: 


EVENTSL_AF TER_COUNT 


J SSF eT 2 2— TBF eee esse ————— + 


EVENTSL_WHEN 


foe e mes etree eee ee meme eee eee enw wewowceocon$ 


EVENTSL_DO 


powermt eee rere ewe sme eee ee ee eee see een meet eee ost e seen} 


: EVENTSL_PRIMARY i 


* eeecee OF SSM SSS GS FS STS TCS OSS ee Sse — eans esata nowmrsaoe eae 4 
EVENTSL_ADDRESS i 
: EVENTSL_THREAD : 


' EVENTSA_VMSDESC ' 


‘ ' 
‘ ' 
‘ ' 
‘ ' 
‘ ' 
‘ ‘ 
‘ 1 
' ‘ 
' ' 
+ + 
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EVENT TABLE ENTRY FOR /READ, /WRITE, /MODIFY AND WATCHPOINTS 


This form of the Event Table Entry is ae in all cases when data 


locations are wetenee for read accesses, write accesses, or noat fying 


accesses. It is thus used both for SET BREAK/MODIFY, for example, 
and for the SET WATCH command. 


— a a ee eee + 
‘ _EVENTSL_ CMD ~FLINK 
‘ EVENTSL_. CMD -BLINK 
‘ EVENTSL EXC <FLINK H 
‘ __EVENTSL “EXC “BLINK H 
: ~ EVENTSL EXCEPTION i 
tetecee= — towewenn eee nnnee — + 
i7i = $3i2:7i0! B_SUB_KIND y B_CMD KIND + BLCMD_TYPE 
— — —— ⏑⏑8 
B. SAVED. SuUB. IND: - unused - ICIBIAIDIBi76iS5i4iSi2i1i0: 


—— — — —— ———— od 


' EVENTSL AFTER. COUNT i 


4 + 
Sane ee ees ; 
TENA IE TM at FEO RT MO : 
: EVENTSL_PRIMARY : 
a eons ed 
eer CR aa 
i EVENTSA_VMSDESC ' 
— oooos coe eeeeeeeeoeeeeeeoesooesesocescs — eeeeeooesoeseeoecos ont 
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oo now fF WH =| 0 


s_sas so ot 
* wn —- ©& 


EVENT TABLE ENTRY FOR /CALL, /BRANCH, /INSTRUCTION 


This form of Event Table Entry is used for the SET BREAK and scr 
TRACE commands when the /CALL, /BRANCH, or /INSTRUCTION quet tt er 
is present. it is thus used in all cases where instructions must 
be traced (T-bitted), one instruction at a time, and the event is 
activated when an instruction of a certain class is encountered. 


RESOSSSSOSCLIOSESSSSORS US ECESSE 


om ee ee eee ec eee e eee eee eee SS SeeeSeeeeeeSeeeeeeeoeseseeseosooooasan + 


EVENTSL_CMD_FLINK 


domes as ame see crete sme meee nc eo ees eee monn wan omerae ee saeco aeaaonamssocaa= + 


} EVENTSL_CMD_BLINK 


geese nt een mmm ene meme em ee m emo meee we treme nee eee ee ee ewe wenn $ 


EVENTSL_EXC_FLINK 


¢ woo ewes cee eee se . mE DES SON 4 


H EVENTSL_EXC_BLINK ' 


dee eee ee ee Re we RR — BE TO HEE Bee Be eee meme t 


: EVENTSL_EXCEPTION ' 


à — — C 
371 = 83120 BLSUB_KIND { B_CMD_KIND { B_CMD_TYPE ; 
O 2— 2423 2242424 

B_SAVED_SUB_KIND: - unused - ICIBIAIDIBI76iSi4isi2ii1io: 


‘ 
‘ 
*2222 Ç 4 


EVENTSL_AF TER_COUNT 


$e wooces —— —— ù — 4 


EVENTSL_WHEN 


feet ecneaaweoaesaaene seen e Se — — — SSeS eee et easement enwmaenea tt 


EVENTSL_DO 


ferme cee ww ene cme e eee eee ma nemo wee . 


i EVENTSL_OPCODE_LIST ‘ 


feos — wen oe werner Enweemnenowemee ae eoeecoeoe — owen ea sorece swoon + 


EVENTSL_ADDRESS 


: Unused EVENTSB_OPCODE } 


: EVENTSL_STEP_LO_PC i 


SH UUSSeeeEneneesesesseseneeeseosseeeneosed® eeeeoe —24 


EVENTSL_STEP_HI_PC 


$ eeeoee SOT SMS SOS SS TSE Ss B SSB Seo" SSMS Te eo * 
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EVENT TABLE ENTRY FOR STEP 


This form of Event Table Entry is used for the STEP command. 


' ' 
1 ' 
i i 
i i 
i i 
' ' 
1 ' 
33 2 
: 3333332 331 898 433109876543210 
' — ———— — — 22224 i 
ae! EVENTSL_CMD_FLINK i 
oa EVENTSL “CMD “BLINK : | 
| 2 : EVENTSL_EXC_FLINK : | 
| 3 i EVENTSL_ “EXC _BLINK ! | 
2 EVENTSL_EXCEPTION ‘ | i 
' — powmonntoetpotototpowooowwceccone= et eee 222224 
5 $7: = $3:2!1:0! B_SUB_LKIND |! B_CMD_KIND | B_CMD_TYPE } i 
' $a powwow tote toate tewesmeeswwwwwonpeowsepofopopotopotototototototos ' 
i 6 {!B_SAVED_SUB_KIND! | = unused - {CIBIAI9!B1716151413:2! 1101 | i 
' teoene ee Pome w www w wwe ewww wowowofpopotpototototpototototototos ' 
poet _EVENTSL_STEP_COUNT \ | 
: 8 : EVENTSL -USERS_PC’_ ! 
J EVENTSL USERS _ FP ' | 
i 10 : __EVENTSL “OPCODE “LIST i 
ae! EVENTSL_ADDRESS i | 
SQeeeoeeooooo2020 Seeoeeoeoeee80 SOQ SSSSSSSSSSSSSSSS Ff SSSSSSSSSSSSSSOS i p 

i 123 Unused "TEVENTSB_ OPCODE | | 
| i EVENTSL. STEP_ LO. PC : 
jw i EVENTSL “STEP. HI_PC i 
I EVENTSL. CALL _FRAME 
i 

; 

; 

; 

; 

; 

; 

3 

; 

; 

; 

i 
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; EVENT STEPPING DESCRIPTOR 

i 

} This structure defines the current step type(s). 

i 

i 33 2 FSOQeesbeaeke 

: 10 33 33 37 31 98765432109876543210 
' $eoocooone — RARER RS 2222222 22224 
0 t XXXXKKKAKAAAKA KAKA KAKA KI IAAI ff 18141 * ' 
ee woweeoweeooeeecoecnone eomowwetototpototopowoccocenccccon+ 
1 H EVENTSL_STEPPING_OP_LIST H 
; — — —— —— en 
i * 0) EVENTSB_ STEPPING_KIND 

: @ 33 Ey EVENTSV_STEPPING_LINE 

: # 0 EVENTS _STEPPING_OVER 

: $ 0] EV an NTSV STEPPING. OURCE 

: 4 OJ E _STEPPING_NOSYSTEM 

* (0) EVENTS¥ V-STEPPING_NOSILENT 

i 

A pointer to an Step Descriptor Entry is declared as follows: 
STEPPINGPTR: REF EVENTSSTEPPING_DESCRIPTOR 

i 

i Define the fields of the Step Descriptor gt Also declare the maximum 
; size of an Step Descriptor Entry and define the declaration macro. 

F 


IELD ———— DESC_FIELDS = 
And Lge te -DESCRIPTO 
T$B-STEPPING_KIND 


m 
< a 
m 
= 


EVENTSL STEPPING_OP_LIST = 


LITERAL 
EVENTSK_STEPPING_DESC_SIZE = 


CRO VENTSSTEPPING DESCRIPTOR = 
BLOCK CEVERT$K_S STEPPING D 
FIELD CEVENTSSTEPPING. DES 


' Event Descriptor address 

! Step kind (as EVENTSB_SUB_KIND) 
: stepping /LINE 

ping /OVER 


[en gn — — 
—OOooooeoo 
mn 
oe 
3 


i Ste ping /NOSILENT 
' /CA BRANCH, etc. 


2; ! Descriptor size in Longwords 


ESC 
cef 
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EVENT DO LIST DESCRIPTOR 


An Event DO List Descriptor is created for each event-point which 
has an associated DO-action. This descriptor points to the text 

of the DO-action itself and is thus what allows the DO-action to 

be accessed when the event-point is taken. This is the format of 
the Event DO List Descriptor: 


' EVENTSL_DO_LIST_BLINK 


$< reese — — — — ane cre ree eee = Seeeeeoeoeoee Sree 2 oe nee SB wewroe ane wea a oma wm ow 


EVENTSL_DO_LIST_COUNT ; 
EVENTSL_DO_LIST_POIN ; 


gone ee wero Bee we eee eeseesoceeseco See eee eee ae wen — ose + 


wn —- & 


A pointer to an Event DO List Descriptor is declared as follows: 
DOPTR: REF EVENTSDO_LIST_DESCRIPTOR 


| 
Define the fields of the Event DO List Descriptor. Also declare the 
descriptor size and define the declaration macro. 


IELD EVENTSDO_LIST_DESCRIPTOR_FIELDS = 
EVENTSA_DO_LIST DESCRIPTOR = (0,A_],! DO List Descriptor address 


EVENTSL_DO_LIST_FLINK 
EVENT$L~DO-LIST~BLINK 


EVENTS$L_DO_LIST_COUNT 
EVENTSL_DO_LIST_POINT 
TES; 


and backward Links 


' 
i 
' 
' 
i 
i 
F 


| 
FO...) ! DO queue forward | 
1 ⸗ 


(C2,L_]. ! DO reference count 
(3,L_) ! DO List pointer 


LITERAL : ‘ 
EVENTSK_DO_LIST_DESCRIPTOR_SIZE = 4; ! Descriptor size (longwords) 


MACRO 
EVENT$DO List DESCRIPTOR = 
BLOCK CEVENT$K_DO_LIST_DE 
FIELD (EVENTS$DO_LTST_DESC 
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EVENT WHEN DESCRIPTOR 


An ge a i Descriptor is created each time a SET BREAK, SET 

r SET ae Statement has a WHEN clause. The Event WHEN 
Descr {ptor points to the location of the boolean WHEN-expression 
and allows this expression to be evaluated each time the X-point 
is reached. This is the format of the Event WHEN Descriptor: 


RED ESESOSSOCLOSESSSSOOS ESE S EEE 


wn — Oo 
Sm 
< 
m 
2 
— 
ad 
E 
‘< 
x= 
m 
* 
a 
oOo 
Cc 
=z 
— 


A pointer to an Event WHEN Descriptor is declared as follows: 
WHENPTR: REF EVENTSWHEN_DESCRIPTOR 


Define the fields of the Event WHEN Descriptor, its size, and its 
declaration macro. 


FIELD eves, DESCRIPTOR_FIELDS = 


eel · — · — — — ————·— — — — — — — — — — ee 


EVENTSA wien DESCRIPTOR = {(0,A_], ! WHEN Descriptor address 
EVENTSL_WHEN_FLINK = 0,L_J. ! WHEN queue forward Link 
EVENTSU-WHEN-BL INK = 1,L_J, ! WHEN queue backward Link 
EVENTSL_WHEN_ COUN = get. . | WHEN reference count 
EVENTS WHEN~POINT = »L-)_ | WHEN List pointer 
LITERAL 
EVENTSK_WHEN_DESCRIPTOR_SIZE = 4; ! Descriptor size (longwords) 
MACRO 
EVENTSWHEN_DESCRIPTOR = 
BLOCK CEVENTSK_ WHEN DESCRIPTOR_SIZE) 
FIELD (EVENTSWREN_DESCRIPTOR_FTELDS) 


' 
i 
i 
F 


wn © 


— ⸗ — ·————————— — — — — — — — — — — — — —— — — —— 


LITERAL 


MACRO 
— DESCRIPTOR = 


F 
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EVENT PAGE DESCRIPTOR 


An Event Page Descriptor is created for each page which is write- 
protected to watch=-point one or more variables on that page. Event 
age Descriptors are Linked together on a *4 Linked List which 
is pointed to by variable XXXXKX. This is the fo 

Page Descriptor: 


RED OSESSCACEIUSESSCSELS SESS SSE 
toeoeoooooooesooooesossc=s Seeeocoooooooeosesesss ecccece eeceeocescerces -+ 


EVENTSL_PAGE_FLINK 


pee —— — — 2— 2 — ZF ZF © SSBF eZ BZ — — eee — — 2 2—— sss —— — —— ——⸗ wae} 


: EVENTSL_PAGE_BLINK 


* — ——— ———2— SWB eNOS SSS fe Se SoBe — ese aan —— 22224 


EVENTSL_PAGE _ADDRESS i 


— sen eseeoe esscagonmane ercceeecan — nraeaonmnmones erceneace} 


' Unused ‘PAGE PROTECTION EVENTSW_PAGE _REF _COUNT ' 


‘ 
' 
Per reowm eon te om omepfece nna ne — > 


rmat of an Event 


A pointer to an Event Page Descriptor is declared as follows: 
PAGEDESC: REF EVENTSPAGE_DESCRIPTOR 


Define the fields of the Event Page Descriptor. Also define the descriptor 
size and the declaration macro. 


IELD EVESTOPAGE DESCRIPTOR / IELDS = 


EVENTSA_PAGE_DESCRIPTOR = 0.,A_], ! Page Descriptor address 
EVENTSL_PAGE_FLINK = 0,L_J. ! Page queue forward Link 
EVENTSL_PAGE_BLI = 1,L_J, ! Page queue backward Link 
EVENTSL_PAGE_ADDRESS = ol ! Page byte address 
EVENTSW_PAGE_REF COUNT = -W0_). Page referecne count 
EVENTSO_PAGE PROTECTION = -B2_] ! Page old protection 


EVENTSK_PAGE_DESCRIPTOR_SIZE = 4; ! Descriptor size (longwords) 


OCK TEVENTSK_PAGE_DESCRIPT 
FIELD (EVENTSPAGE_DESCRIPTOR 
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FREE MEMORY MANAGEMENT 


The Free Memor —F manages the the Bebuage 5 we memory pool. Its 
routines are thus called throughout the Debug ager © allocate and de- 
allocate memory blocks used for RST entries, Static Address Table en- 
bee E and numerous other kinds ~ descriptors one records. The Free 

Manager has two kinds of blocks in its memory pool: free blocks 
and : located blocks. The formats of both kinds of blocks and the over- 
all structure of the memory pool is illustrated below. 


FORMAT OF A FREE MEMORY BLOCK 
The format of a free memory block is shown here: 


3322 $ 2 ¢ 2 § § 131111111114 
10987654 1098765432109876543210 
Ne tt ee eooeeococene eoeceeneonne + 


H SENT iPiT! FMEMSV_LENGTH ' 


doewemenoreceans —— — Sees eee ee eae were sce meee ace a 2224 


FMEMSL_FLINK ' 


Cc 

2 

w 

oO 

a 
—4 


422222— ——— —————— — ——— —— Seeeeeeeoeenonenee eeeceoeon oee 


: FMEMSL_PREVLEN 


— meee eee nO MMO erat eee eae eee + 


Here SENT represents FMEMSB_SENTINEL, P is FMEMSV_PREVALLOC, and T is 
FMEMSV_THISALLOC as defined on the next page. 


A free block has its length (in longwords) stored both at the be soning 
of the block (FMEMSV_LENGTH) and at the end (FMEMSL =fTevLE®) . The mini- 
mum Length of a free block is four longwords. Free bl oces are chained 
together on a doubly Linked ireent tet.” This List has a List —* pe ch 
is never allocated--the List is thus never em 


The address of t 
free-list List head is always stored in the mpty sorienle DBCSEREE List. 


— 


— ⸗— ———c·—— —— —— — ——— —— — ——— —, — — 


H 
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FORMAT OF AN ALLOCATED MEMORY BLOCK 


The format of an allocated block is as follows: 


PES OSSSSSOCTOSECOSSE — 


ù — — —24 


ih. SENT iPiTs FMEMSV LENGTH ‘ 


Few moecannosean waetaebgateanmecnsrceacs ecm ceenee Oe aM eT Soe maoaae 224 


FMEMSA_ALLOCBLK 


Allocated Memory Area 


@ cecccccecccccccccs 


ere SENT represents FMEMSB_SENTINEL, P is freee: -PREVALLOC, and T is 
FREMSV. THISALLOC as defined below. in an allocated block, the address 
returned to the requestor is represented by FMEMSA _ALLOCBLK. 
A pointer to a memory block (free or allocated) is declared as follows: 
BLKPTR: REF FMEMSBLOCK 


This declaration is used in the Free Memory Manager only. 


i Define the fields in the two kinds of memory blocks. 
FIELD FREMSFLD_ DEF = 


' 
' 
i] 
— 
— 
' 
— 
— 
' 
' 
1! 
1 
i] 
' 
' 
— 
— 
J 
— 
‘ 
' 
— 
i 
— 
— 
— 
— 
' 
— 
— 
— 
— 
— 
— 
— 
— 
J 
J 
— 
— 
F 


: memory block 
: address a block’s header relative to 
the FMEMSA " ALLOCBLK location 


—— LENGTH =[( 0, V_(0,22) J,! The length of the block in longwords 
FMEMSV— THISALLOC= 8. v- (22) }i Set to TR E if this block is el located 
FMEMSV~PREVALLOC= . V.(25) J,! Set to TRUE if the prev ous block 
; allocated (block at smaller addr) 
FMEMSB_SENTINEL = ( 0, B3_ J, ! Sentinel value--always FMEMSK_SENTINEL 
FMEMSL_FLINK ef i, i. }: ! Forward Link on free List 
FMEMSL_BLINK =C2,L ! Backward tins on free Lis 
FMEMSLIPREVLEN = C ={, C_ 5, {Length of this free block relative to 
; the start of the next bloc 
FMEMSA_ALLOCBLK = [( 1, A_ J, : Address. returned to caller requesting 
' 
1 


FMEMSA_HEADER = [ -1, A_ ] 
TES; 


DBGLIB.REQ;1 16-SEP-1984 16:48:55.33 Page 42 


: Declare the sentinel value and the declaration macro. 


LITERAL 
FMEMSK_SENTINEL = 2Xx‘B2'; ! Magic sentinel value--used for error 
: checking only 


MACRO 


FMEMSBLOCK = BLOCKC,LONG) FIELD(FMEMSFLD_DEF) %; 
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OVERALL STRUCTURE OF MEMORY POOL 


The memory pool consists of one or more — pool areas. The first 
such area is initialized to have the format shown here: 


SEL OSSSOSLOELOSSSOSSE EVES ESESE 


Ferme weeeeeeeeeeeeeeeeeeeseeoeseoeeesseeeseeseoeoesoocesesococcess} 
‘ 


: Forward Link to next memory pool area H 


Fee woroeeeees ceoeeeeeeeeee eee eeeeeeeeeeeseeeeeeeeooeeoececeecocs} 


: Size in bytes of this memory pool area H 


peewee marcan wmoewetetetoereconr senor mame nm semester een sen wesw cee ence we S$ 


‘ SENT 11:0! & ' 


tres werner em nee pote toate messes mens eee em or nw oe weet eee were —4 


FMEMSL_FLINK 


| 
| 
| 
Ee ve | 
PRASAD DERE TM, 

| 


SENT 1110! FMEMSV_LENGTH ; 


tewmemmwresnm momo en pote} eee ese wm ee meee ewe ww omer meme mm ses e —— 


FMEMSL_FLINK 


ew emer ewmeeee er mo nm oenn wm mem eer en ern eo omwnnmocaeacaes — — —— — — 
FMEMSL_BLINK 
fae — — — — — — See Sy — —2 — ew oe wea oe — — — — — — — — — — — eo Se Swe we eee oe en ao ee ae ce er ce ce 


oon oO UVF WN | CO 


Free memory available for allocation 


oe } coca cc ccceccoscoccoess 


Steere rer secs ew saen nen ere newer roan en emmewoecace Slew ew eeeaci wee ceases ceed 

* FMEMSL_PREVLEN 
¢wmorecescoeseesoe} eto peaesecesenewen mecca SOS Steno ee em Een aoomaecace } 

* SENT 0:1! 1 H 
— —— nw nem srecocceocescoc ome e ene wee wee o ooo ee @-¢+ 


Here longword 0 contains a pointer to the next memory pool area (for 
this initial area the pointer is always zero) and longword 1 contains 
the size of this area in bytes. These two fields are present for in- 
ternal error checking purposes only. 


Longwords 2 - 5 contain the free-list Li 
which is always at the start of the doub 


st head. This is a free block 
ly Linked free List and which 


DBGLIB.REQ;1 


vents any at 
The rest of ene area (longword 6 the next to last longword) is 
cay one b hich all 

ow the 


Additional memory pool areas may be acquired from LIBSGET_VM during the 
Debugger's initialization phase. Each such area is initialized to have 
the same format as the bad one except that the free-Llist List head is 

d for the whole memory pool. The initial for- 


absent--only one is neede 
mat of each additional memory pool area is illustrated here: 


PES ESESSCROEIUSESOSSE RS ESESESSE 
Feo mooor ooo ee eee eee sesso sees eeeseseesoeoooeososescesses 4 


Forward Link to next memory pool area H 


Sew ee ee ee ee eee eeeeeeSeeeeeeeeeeeeseeeooasoeooeooeoaoeeon eeeee awn + 


: Size in bytes of this memory pool area ' 


— roo momo mee fe fep{oewmemowecwomee] ame eee mew wocw ere meow werner ee + 


‘ SENT 11:03 FMEMSV_LENGTH i 


Pewee enewanemwmewmefe pe pens sean Hee Beet oe em nore een emeaae wma maemo + 


FMEMSL_FLINK ; 


Fee eeeeeeoeeeeeeeee oe eee eee eee seeoeeeeoeeseeesossaeceeseess eSeeeeoeoeeae + 


FMEMSL_BLINK ' 


eeeceoe were ewe rm 2 ee Ze et ee wre we meer e me — — — — — — — — —— + 


Free memory available for allocation 


See sees ee ee eee eeeeees Hone 


DP cm em emer em ee ee ee eeeeoes 


$e we cer owen se ve eee nee eee me oe tree een meee eSeeeeeeeeeeeo See eee 222 2— 


FMEMSL_PREVLEN 


+ 
' SENT 10:1; 1 ‘ 


tee eroeeoe comme mo pope fpf weewerewecc eee e ee ewe scent ewe etme more ree wm mene} 


16-SEP-1984 16:48:58,353 Page 44 


DBGLIB.REQ; 1 


TEMPORARY MEMORY BLOCKS 
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Bg pet # memory blocks —* blocks which suroneticot ty are released 
e 


at the end of sve current command. Such blocks are Mh pe by a 
“yf hs eg on routine: (DBESGET sTENPRER) 

LY released to the memory p Ry one rout 
Ary ibacs EL_TEMPMEM) which pow ot releases all ‘‘temporary"’ 
blocks accumulated since the last such call. Tenporery blocks have 
the following format: 


SUSASSCSSRCESESESSOSESES TESS 


Gerewoeeeooooooooe$} of} of} ooeeeeeeoeoeeeeooeooeeocooeoococoscoeseeeeees at 


‘ SENT spits FMEMSV_LENGTH H 
‘ Forward Link to next temporary memory block H 
: TEMPSENT wit FMEMSV_LENGTH ' 


p$eweewooeoooooon}o fof} ecccceseoceeeecceeeeecoococceccececececcece + 


FMEMSA_ALLOCBLK 


Allocated Memory Area 


S ee ww cw cece coco coon 


neers 0 is the same as for any other memory pool block. Longw 
ains 3 forward Link to the next block on the temporary ates 
tenquore £ is similar to longword 0, but the Length there is 


but they do ner Wave to 
in n 


o les 
and the sentinel value is a different — value CFMEMSK _TEMPSENT) « 


i Define the distinguishing sentinel value for ‘‘temporary'’ memory blocks. 


FMEMSK_TEMPSENT = %X'B4'; ! Sentinel value in longword 2 
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IMAGE FILE HEADER DEFINITIONS 


i 
ee | 


The executable image file header block contains a pointer in a fixed 

Location which points to a small block later in the header which gives 

the size and location of the Debug Symbol Table (DST) and the Global 

Symbol Table (GST). The first part of the executable image file header 

looks as follows: 


PES OSESO SO CLOSESSSSOOSESESSSEE 
44 


Gereoreeeeoooooorecoeoeoesooooeoes}ecoeeeeeocoeesoesoooooosesesoesscs + 
‘ ‘ IHDS$SW_SYMDBGOF F ' 
Die Mie ati et eo ee ee 
— — — —— — — — — 


Here IHDSW_SYMDBGOFF contains the byte offset relative to the start of 
the header of an Image Header Symbol Table descriptor. 


IMAGE HEADER SYMBOL TABLE DESCRIPTOR 


The imoge Header Symbol Table Descriptor (IHS) pototed to by the 
IHDSW_SYMDBGOFF field in the header has the following format: 


PET ESSSS SSE LLOSESS CSE LSESESS SE 
Fewer o ee ee ee ce seco ee eee eee eeee sesso eeesesoeesoeeeeooesesoesscsos$ 


IHS$L_DSTVBN 


terre m ost caw emer See Se eee eee eee ooer een eee emce + 


: IHSSL_GSTVBN 


' IHS$W_GSTRECS : IHS$W_OSTBLKS i 


| 
| 
| 
IHSSL_DMTVBN 


! IHSSL_DMTBYTES 


twee remreoroomeresewre oe nme eee ce cee eco momen cee eer ece en ewm erence ew ooo eoe + 


Here IHS$W_DSTBLKS and IHSSL_DSTVBN give the size (in blocks) and loca- | 
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tion (Virtual Blost Number) of the 1nsee 8 mbol Table (DST) within - 
executable image file. The fields IHS STREC — tt L_GSTVBN 

the size (in GST records) and start locaft - 9 rtual Block Number of 
the Global Symbol Table (GST). —36 the fields inese DMTBYTES and 


1 

| 

| 

| 

: _DMTVBN give the size (in bytes) and start Eyogation (\ Tyirtual {Block 
; descri we below. 
} These field names are declared by macros in SySSLIBRARY LIB.L32. 

! The synbol — SYROBGOFF is defined in SYSSLIBRARY:LIB.L32 and is 

4 therefore not defined here. A pointer to the image file header is 

: declared as follows: 

: IHDPTR: REF BLOCKC,BYTE) 

: A pointer to the image header symbol descriptor is declared Like this: 
; 

1 

' 

J 


IHSPTR: REF IHSSENTRY 


i Define the IHSSENTRY macro. 


MACRO 
IHSSENTRY = BLOCKCIHSSK_LENGTH,BYTE] %; ! IHSSK LENGTH is define eg in 
i SYSSLIBRARY:LIB.L32 
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IMAGE FILE DEBUG MODULE TABLE 


The Image ue Header in an executable image file points. to the Image 


Header yabo Ll Table descriptor as describe shove 8*8 4. of i 
IHDSL_LNKFLAGS in she ar rer is fet this pose 
Foduced by the 0 or Later Linker, J 4 Tete | _OM * and 


THsst DMTBYTES tletds Mox\st in the Sense Header Symbol Tablé descriptor. 
(If is not set, this is an ‘‘old’’ image and those fields do age 

sd A » If non-zero, THSSL “DMTVBN ives the Virtual TnSSL —* 

the image file of the Debug” meee able (th e mt 

then gives the size of the DMT in bytes. The D nly bu mite 

user did a LINK/ DEBUG; if he did not, IHSS$L MSHI VEN. and IHS$L_ bATBYTES 

are zero. 


The Debug Module Table contains one entry per module in the Debug 
Symbol Table (the DST). This is the format of each such DMT entry: 


332222 g 2 ¢ Ceerpeavpewaats 
21098765432109876543210 


! DST address of “Module Begin DST Record — ‘ 


: Size in bytes of module* s DST 
Number of PSECTs for this “module H 


femeeoren ae mcoaene seeace Beer eer ee sw noe woer ew eeem ere ec eee areas weesnooe sea} 


: Start address of first PSECT in module } 


tawoaea Seen ee or eae soon a scene maee Secs One on eee woen Tew onan samo ae amo + 


Length of first PSECT in module in bytes ' 


(Two longwords per PSECT) 


- > cece — o- > 


> << > <- } ee ee ee eeoe +-- 
‘ 
4 
‘ 
8 
6 
5 
‘ 
i 
o 
i 
: 
' 
a 
o 
‘ 
i 
4 
a 
t 
: 
' 
i 
4 
‘ 
a 
4 
i 
a 
‘ 
‘ 
— 
t 
a 
a 
a 
‘ 
‘ 
4 
4 
‘ 
a 
‘ 
i 
3 
‘ 
4 
a 
‘ 
i 
' 
t 
4 
4 
4 
t 
4 
a 
4 
i 
$ 
1 


Lonevers 0 gives the address relative to the start of the DST of the 
Module 8B Begin DST Record for this module. Longword 1 gives the size 
of the DST in bytes for the same module. Longvord piver the number 
of PSECTs in the module (i.e., the number of statically allocate 
program sections), and this is followed by that number of two-longword 
perce which give the start address and length (in bytes) of each such 
- Since the number of PSECTs cannot exceed 65K, the upper two 
bytes of longword 2 are available for future expansion. 


— — — — — — — — — — — — — — — — — — — — — ——— ———————— — 
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' The DMT is used durin BEBUS initialization to initialize the RST and 

: the Program Static Address Table. Using the DMT is much faster than 

4 the aternative procedure, namely feeding through the entire DST to 

: pick up the needed information. The information in the DMT entry is 

: enough to build a Module RST Entry for each module in the DST and the 

: PSECT information is used to build the Program SAT. The amount of RST 
: symbol table space needed per module is not computable from the DMP in- 
: formation, but is estimated by multiplying the DST size of each module 
: by an appropriate scale factor. 


a 
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LEAST RECENTLY USED MODULE TABLE | 


The Least Recently Used Module (LRUM) table 2*8 track of the Least 
Recently Used module in the RST. This information is used to select 
modules to be removed from the RST when the free memory pool is full 
and new space must be created by rosess ion old RST entries. The LRUM 
table is built and maintained by the DBGSMOST_RECENT_MODULE routine in 
module RSTACCESS and is accessed by routine DBGSGET_MEMORY when memory 
space must be released by removing the Least Recently Used module. 
Routine DBGSRST_INIT builds the initial LRUM List head. 


The LRUM table consists of a doubly Linked List of LRUM entries, with 
@ permanent List head and one entry per module curr — 


ently in the R 
The address of the List head ir by the global LRUMSLISTHEAD. 
The format of the individual LRUAM entry is show here: 


332 ‘ 22 ¢ 2 ¢ § SSCGECaERE BER 
10987654 1098765432109876543210 


be we rere scere emcee weeeenee nes WO BSBA Tea mw ao mae ewes e lease eee wamac ae + 


| 

5S | LRUMSL_FLINK : | 
Ey LRUMSL_BLINK : | 
(a — — — — — — — — — — anaeenee ae = — — we ee te ee me — — — — — — — — — — — — ee ee — — oe Se em ee — — — — eee | 

os LRUMSL_RSTPTR 


tame mmo enc amoe — me em — one om eo em ae ee me em Oe oo oe wo we om Me wenn 2— * 


A pointer to a Least Recently Used Module entry is declared as follows: 
LRUMPTR: REF LRUMSENTRY 


Define the fields in the Least Recently Used Module entry. Also define the 
entry size and the declaration macro. 


1ELD LRUMSFLO_DEF = 
LRUMSL_FLINK 


t 
i 
i 
i 
i 
— 
i 
F 


J =(£0,t.], ! The LRUM chain forward Link 
LRUMSL_ BLINK et i. i. de ! The LRUM chain backward Link 
LPUNSL _RSTPTR =(€ 2, LL ! A pointer to the Module RST Entry 
LITERAL 
LRUMSENTSIZE = 3; ! The lLongword size of the LRUM entry 


MACRO 


— ⸗— — — — — — — — — — — — — — — — —— ———————·—·⸗—————— te — ——— — ee —— —— 


LRUMSENTRY = BLOCKL,LONG) FIELD(LRUMSFLD_DEF) %; ! Declaration macro 
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: LEXICAL SCANNER CHARACTER TABLE 
] 
! 
: The Lexical Scanner (routine DBGSLEXICAL_SCANNER) operates on a 
4 Character Table which gives lexical information about each ASCII 
: character. This information consists of bits and small integer 
; values which characterize the character from the Lexical Scanner's 
: point of view=-they indicate whether a given character can be part 
4 of an identifier, a numeric constant, an operator, or whatever. 
; The Character Table is thus a vector of 256 elements, indexed by 
: the ASCII character code, where each element contains the informa- 
; tion defined here. 
. | 
: A Lexical Scanner Character Table is declared as follows: | 
: CHARTBL: CHRTBLSTABLE 
i 
| 
! Define the fields of the Character Table element. Also define the 
: declaration macro. 
FIELD CATE OFLO_DEF = 
CHRTBLSV_IDENT_START = ({ 0, v.(0) J, ! Identifier start character 
CHRTBLSV_IDENT_MIDDLE = (C 0, V_(1) J, ! Identifier middle character | 
CHRTBLSV_IDENT_E ={ 0, v-(¢) . | Identifier end character 
CHRTBLSV_NUMBER_START = ([ 0, V=(3) ! Number start character 
CHRTBLSV-NUMBER-CLASS = C 0, V~(4,4)4,! Numeric constant character | 
; class | 
CHRTBL$V_ALPHABETIC = € 0, v_(8) 1. i Alphabetic character (A-Z) 
CHRTBLSV_DIGIT = (0, v(9) ! Numeric digit (0-9) 
CHRTBL$V_STRING_QUOTE = 0, V-(10) J,! String quote character | 
CHRTBLS$V_OPCH a b° v_(11) J,! Operator character | 
CHRTBL$V-OPCHAR_PREFIX = [ 0, Vi(18) »! Operator prefix character 
CHRTBLS$V_OPCHAR_ INF = (0, V_(15) J,! Operator infix character 
CHRTBLS$V_OPCHAR POSTFIX = C 0, V_(14) J,! Operator postfix character 
CHRTBLSV_ADDRESS_OP = (€ 0, vV~(15) J,! Address Expression operator 
CHRTBLS$V_SPECIAL_SYMBOL = C 0, V_(16) J,! Special DEBUG symbol (. \ *) 
CHRTBL$V~ SPACE = £ 0; v7(17) 3.! Space or Tab character 
CHRTBLSV_TERMINATOR = ({ 0, V_(18) J,! May start Terminator Token | 
CHRIBL$SV_SPECIAL CASE = [( 0, V_(19) J,! Spec tal case in lex scanner 
®t. J ! The whole entry for a char. | 


CHRTBLSL_WHOLE_ERTRY 
TES; 


MACRO 
CHRTBLSTABLE = BLOCKVECTOR(256,1,LONG) FIELD(CHRTBLSFLD_DEF) 2%; 


' Define mask values for all the bits in the Character Table element. These 
: values are used to initialize Character Table elements. 


LITERAL 
CHRTBL$M_NOTHING 


é 0, ' No bits set 
CHRTBLSM_IDENT_START 1°0, ! Identifier start character 
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= 


GMUVBLER-IBEMT-PUSOLE = 124- | Heme dfigr cage cacacter 
= » | Iden er en aracter 
SUR TEL SO LDENT ANYWHERE = rs ° : —— A — fier 
_NUMB = 1*3, |! Number start character 
J fsb | alpontets oftecasay” Om 
= ! Numer - 
— 
= - | Operator cter 
CHRTBLSM_OPCHAR_PREFIX = Vig: ; Operator refix character 
CHRTBLSM_OPCHAR_INFIX = 1°15, ! Operator infix character 
CHRTBLSM_OPCHAR POSTFIX = 1°14, ! Operator postfix character 
CHRTBLSM_ADDRESS_OP = 1°15, |! Address Expression operator 
CHRTBLSM_SPECIAL_ SYMBOL = 1°16, ! Special DEBUG symbol (. \ *) 
CHRTBLSM_SPACE = 1°17, ! Space or tab character 
CHRTBLSM_TERMINATOR = 1°18, ! May start terminator token 
CHRTBLSM_SPECIAL_CASE = 1°19; ! Special case in lexical scanner 


! Note that the possible values of the CHRTBLSV_NUMBER_CLASS field are defined 
! under the description of the Number Scanner State Table. ed | are the same 
values as are allowed in the NUMSTSB_CHAR_CLASS field and their 


names all 
! have the form NUMSTSK_CLASS_xxx. 
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LEXICAL TOKEN ENTRY 


A Lexical Token Entry is returned by the Lexical —* rf every time it 
is called. ——— Token Entries are young n predefined tables spec- 
itte to each nguage Be gts by DEBUG while Operand Token Entries 
are built as nee ed Lexi ee Scanner (DBG 5 SCANNER). The 
format of a Lexical Peat Entry depends on the kind of oken Entry it 
is, but all Lexical Token Entries have this general format: 


PES ESESSCLOESOSOSSESELT OSES — 
— ln Se errr S 


0 } TOKENSW_CODE { TOKENSB_FLAGS | TOKENSB_KIND | | 


' 
i 
i 
i 
F 


¢eoeeeceoeweoeoessooescosesoocce}cecce eee Se se etme scean 24 


Additional fields depending on the Token Entry kind 


} cccccecccs 


SS oS mm me ee eee eee ee ee ee oe — —— —— —— — ee mw oe + 


A pointer to a Lexical Token Entry is defined as follows: 
TOKENPTR: REF TOKENSENTRY 


Define the fields of the Lexical Token Entry. 
FIELD roxeNrLe. DEF = 


— · — · — · — to et ——————— — Tt Te eee 
— 


| 
TOKENSB_KIND = 8. B0_ ! Token kind 
TOKENSB™ FLAGS = , B1_ Token is Pr flag bits 
TOKENSV_PRIMARY = [ 0, V1_(¢ women ar eee? Symbol operator 
TOKENSV_LEXICAL = C 0, v1_(1) 


TOKENSV_SGNEXT = C 0, v1_(2) ],! 


' 
' 
7 
i in Operator entries only) 
i —— 3° a lexical operator (used 
' in Operator yt ye only) 
' Sign quvensten $ $.6> operation 
; —*4 * erator Lexical Token 
: -select operation) 
PONENEY_DALANCED POnens ; — %s are nator Token only if 
=C 0, v1_(0) J,! parentheses are balance 
: (used in Terminator entries only) 
TOKENSY_AUST BE SINGLE ! Token ¥s Terminator Token only if this 
= (0, vi_(1) J,! character is not followed by it- 
} self (: is term but not ::) 
; (used in Terminator entries only) 
TOKENSV_ARGUMENT otis ST : Argunent List follows this Ada tick 
i op operator. 
1 


» V1.3) 2,3 
TOKENSW_CODE = £0: ui * + : and or operator code for token 
TOKENSS81F 1, B0_ ; porte n Function Code 
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TOKENSB_LENGTH = . B 
TOKENSA_NAME = [ 5 


mE NED AERC ={ 1, 80. 
TOKENSB_L PREC =f 1, B 
TOKENSW-SOBCODE = ( 1, wWi_ 
TOKENSW_BIT_OFFSET * 
= ° ba 
TOKENSW_BIT_LENGTH 
= wi 


TOKENSB_OPLEN = [ 3. B07 
TOKENSA_OPNAME = { 3) al 


LITERAL 
TOKENSK_ENTSIZE = 2, 


TOKENSK_ENTSIZE_OPERATOR = 3; 


MACRO 


TOKENSENTRY = BLOCKC,LONG) FIELD(TOKENSFLD_DEF) 2%; 
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Length of operand name in bytes 


! Operand name in ASCII 


Operator's Right Precedence 
Operator's Left Precedence 
Sub-code field 


Offset P in X<P,S,E> operation 


Length S in X<P,S,E> operation 
Length of operator name in bytes 
Operator name in ASCII 


Size of fixed part of an Operand 
Lexical Token Entry 

Size of fixed part of an Operator 
Lexical Token Entry 


! Declaration macro 


! Define the valid values of the TOKENSB_KIND field. This field indicates 


: what kind of token this is. 
LITERAL 


oP 


: Define mask values for the bits 


LITERAL 
TOKENSM_PRIMARY 
TOKENSM_LEXICAL 
TOKENSM_BALANCED_PARENS 


TOKENSM_MUST_BE_SINGLE 


Operand 
Prefix Operator 
Infix Operator 


! Postfix Operator 


in the TOKENSB_FLAGS field. 


Token is Primary Symbol operator 
Token is lexical operator 
Terminator requires balanced parens 
Terminator character must be single 
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Define the valid values of the TOKENSW_CODE field for operands. 
says what kind of operand this Token Entry represents. 


OPERAND LEXICAL TOKEN ENTRY 


Operands are identifiers, numeric constants, string or character 
constants, or special constructs such as LINE nnn which generate 
identifiers. The Lexical Token Entry for an operand has the fol- 
lowing format: 


ES ESSSSOACEOUSESESSE USES ESESSE 


H TOKENSW_CODE H TOKENSB_FLAGS : TOKENSB_KINOD H 
: Unused H TOKENSB_BIF i 
TOKENSA_NAME | TOKENSB_LENGTH: 


$eroenaceneaa — —222 


(Operand name in Counted ASCII) ' 
(Includes TOKENSB_LENGTH and TOKENSA_NAME fields) 


> ce ccccccccccces 


‘ 
' 
' 
' 
‘ 
‘ 
' 
J 
' 

+ 


The TOKENSB_KIND field of an Operand Lexical Token Entry always has 


the value TOKENSK_OPERAND. 


IN_OPERAND 


This field 


TOKENSK_M = 1, ! === Minimum value for TOKENSW_CODE 
TOKENSK_IDERTIFIER =1, ! Identifier 

TOKENSK_STRING = ¢° ! Character String Constant 
TOKENSK_CHARACTER = 3, ! Single Character Constant 
TOKENSK_INTEGER = 4, ! Integer Constant 

TOKENSK_HEX_ INTEGER = 5, ! Hexa qcimal Integer Constant 
TOKENSK_FLOATING = . ! Floating Point Constant 
TOKENSK_EXP_E_FLOAT = 7, ! Floating Constant with E Exponent 
TOKENSK_EXP_D_FLOAT = 8. ! Floating Constant with D Exponent 
TOKENSK_EXP_Q FLOAT = ! Floating Constant with Q@ Exponent 
TOKENSK-BIN-IRTEGER * 16, i Binary Constant 

TOKENSK_OCT INTEGER eT, - 7 Octal Constant 

TOKENSK~ COMPLEMENT = \¢- ! 1°s Complement 

TOKENSK_BIT_ STRING = 15, ! Bit String Constant (as in PL/I) 
TOKENSK_PACR_DEC IMAL eh, | Packed Decimal Constant 
TOKENSK_EXP_G_FLOAT = 15, ! Floating Constant with G Exponent 
TOKENSK-BUICTIN_FUNCTION= 16, ! Built-in Function 
TOKENSK_MAX_OPERAND = 16; ! === Maximum value for TOKENSW_CODE 
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OPERATOR LEXICAL TOKEN ENTRY 


The Lexical Token ery for an operator gongaine a rlae b infor- 
mation not needed for operands, namely the left and right prec 
dences of the operator. This is 

Token Entry: 


ES OSSSSORCSIOSUSSSSE LS ES ESSE 


the format ot an Operator Wx. 


— 

' 

‘ 

— 

' 

— 

J 

— 

— 

— 

‘ 

— 

— 

— — — ——— —— 
0 : TOKENSW_CODE ! TOKENSB_FLAGS : TOKENSB_KIND H 
1 : TOKENSW_SUBCODE i TOKENSB_ L_PREC iTOKENSB_ R_PREC ‘ 
2 ! TOKENSW_81T_LENGTH : TOKENSW <81T. OFFSET H 
[Res TOKENSA_OPNAME i _TOKENSB_OPLEN 
J (Operator name string in Counted ASCII) 
bos (Includes TOKENSB_OPLEN and TOKENSA_OPNAME fields) 
eee | 
— oF ow woaeeraeeme notre nee enema nee owewrocom eSeeeoeeneoeoeon Se eee eee eeneon ee ee ow oe ae om 
‘ 

‘ 

' 

: The TOKENSB_KIND field of an Spereter Lexical Token gates rvexe 
; has one of the three values TOKENSK_PREFIX_OP, TOKENSK_INFIX_OP, 
; or TOKENSK_POSTFIX_OP. 

‘ 

: Define some size literals used for allocating memory. 

LITERAL 


TOKENSK_FIXED_SIZE_BYTE = 13, Fixed size (not including 
the name) of an operator 
token. actual size in 

byt es is tors yorwe plus 
the OPLEN f 

Fixed size ele including 
the name) of an operator 
token. Actual size in 
longwords is yore value 
plus OPLEN / 4 


TOKENSK_FIXED_SIZE_LONG = 4; 


i Define the valid values of the TOKENSW_CODE field for operators. This field 
indicates which operation is to be performed. Not ott anguages allow all 
operators. but al gperators allowed in at least one language are listed in 
this table. Note that the SAME Operator, may be represen ed differently in 

! different languages--thus ‘ and "’.EQ.°" are both considered to be the same 
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: comparison operator. 


LITERAL 
TOKENSK_MIN_PRIMARY_OP 


TOKENSK_PRIMARY_TERM 
TOKENSK_GLOBAL_ SLASH 
TOKENSK_BACKSLASH 


TOKENSK_SUBSCRIPT 
TOKENSK _DOT 


TOKENSK _ COBOL _OF 
TOKENSK_PASCAL _DEREF 
\OKENSK_PLI_DEREF 
TOKENSK _INVOCNUM 
TOKENSK_BIF_OP 
TOKENSK_ADA_TICK 


TOKENSK_MAX_PRIMARY_OP 


LITERAL 
TOKENSK_MIN_OPERATOR 


TOKENSK_INITIATOR 


TOKENSK~POWER_OF 
TOKENSK ~OPENPAREN 
TOKENSK~ CLOSEPAREN 
TOKENSK~EQUAL 


TOKENSK~XOR 
TOKENSK~EQV 


——90 On OO WE WR — 
⁊ 


20 


— se 6 2 


— 
— 
oe 


Poronononononony 2 ONO SWNS — 
NOU UW @OOONOU EWN" Or + 5 es © e 8 8 ts 
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--- Minimum value of TOKENSW_CODE 
=--- for Primary Symbol operators 
Terminator operator for primary 
Prefix backslash for GST scope (\X) 
Infix 229 for petinene qualifi- 
cation (EXAM M\R\X) 
Subscript open gecentbests operator 
Infix data qual g Teas ton gporeter 
as in A.B(2).C in PL/ 
Infix data ques fication operator 
as in C OF B OF AC(2) in COBOL 
Postfix dereference operator such as 
* in PASCAL (as in P*.X) 
Infix dereference operator such as 
=> in PL/I (as in P->x) 


Invocation Number operator 
uilt-in Function (parameter List) 
The ADA tick operator for symbol 
attribute qualification. 
=--- Maximum value for TOKENSW_CODE 
--- for Primary Symbol operators 


--- Minimum value for TOKENSW_CODE 
=--- for Language expression operators 
Expression initiator pseudo-operator 
Expression terminator pseudo-operator 
Indirection operator orerte - or @) 
Unary plus operator (+A) 

unary minus operator (-A) 

Addition operator (A+B) 

Subtraction operator (A-B) 
Multiplication operator (A*B) 
Division operator (A/B) 
Exponentiation operator (A**B) 

Open expression parenthesis ‘‘("' 
Close expression parenthesis ‘')"' 
Equal comparison operator 

Not equal comparison operator 

Greater than comparison operator 


Greater than or equal comparison oper. 


Uns tened Greater than comparison operator 


Unsigned Greater than or equal to comparison operator 


Less than comparison operator 
Unsigned Less than comparison operator 
Less than or equal comparison oper 


Unsigned Less than or equal comparison operator 


Boolean NOT operator 
Boolean AND operator 
Boolean OR operator 
Boolean XOR (exclusive OR) operator 
Boolean EQV (equivalence) operator 
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TOKENSK_SHORT_AND g. ! Short-circuited boolean AND operator 
TOKENSK_SHORT_OR Seay. | shorvec ircul ted boolean OR operator 
TOKENSK_B1T_NOT * 9. ! Bitwise NOT operator 
TOKENSK_B1T_AND = 31,  ! Bitwise AND operator 
TOKENSK_BIT_OR = ¢ ! Bitwise OR operator 
TOKENSK_BIT_XOR = 35,  ! Bitwise XOR operator 
TOKENSK_BIT_EQv = 34, ! Bitwise EQV operator 
TOKENSK~ CONCATENAT = 35, ! String concatenation 
TOKENSK_MODULUS * 3— Aodulũs operator 
TOKENSK_REMAINDER sir, ! pepe tnege operator 
TOKENSK_LEFT SHIFT = 38, ! Left sh fs operator 
TOKENSK_RIGHT SHIFT = 39, ! Right shift operator 
TOKENSK_ADDRESS_OF = 40, ! Address-of operator (as in C) 
TOKENSK_SIZEOF =41, ! Size-of operator (as in C) 
TOKENSK_SET_MEMBER = 8 ! Set membership operator 
TOKENSK_ ABSOLUTE = 435,  ! Absolute value operator 
TOKENSK_INF IX _NOT = 44, ! Lexical operator (as_in COBOL's NOT =) 
TOKENSK_ SUCCESSOR = 45,  ! Successor operator (BIF) 
ae PREDECESSOR = 8 — operator (BIF) 
i Unus = 47, ! Unuse 
TOKENSK_INT_DIVIDE = 48, ! Lexical gpereter for snsoger divide 
! Cin PASCAL, A DIV B must be 
! distiguished from A / B) 
TOKENSK_BITSELECT = 49, ! Bit selection in BLISS and address 
: expressions (<pos,size,ext>) 
TOKENSK_DEPOSIT = 50, ! = for Deposit Command ( act ng as 
: Long. dependent assignment ) 
TOKENSK_CONVERT = 51, ! Used as to indicate subscript 
: conversion operator 
TOKENSK_RADIX_DEC = 2g. ! Set current radix to decimal 
TOKENSK_RADIX_HEX = 55, ! Set current radix to hexadecimal 
TOKENSK_RADIX_OCT = 54, ! Set current radix to octal 
NSK_RADIX_BIN = 55, ! Set current radix to binary 
ENSK_IDENTITY s g. ! Identitiy operator 
OKENSK_OPENSET = 57, ! Set constant open 
TOKENSK_B1IT_IMP = 58, ! Bitwise IMP (implication) operator 
TOKENSK_PRE_INCR = 59, ! Pre-increment (++X) 
TOKENSK-POST_INCR = 60, ! Post-increment (X++) 
TOKENSK_PRE_BECR = 61, ! Pre-decrement (--X) 
TOKENSK_POST_DECR = 6. ! Post-decrement (X--) 
TOKENSK_PREFIX_GTR = 63, ! Prefix > as in COBOL, ie. NOT > 
TOKENSK_PREFIX_LSS = 64, ! Prefix < as in COBOL, ie. NOT < 
PREF IX_E = 65, ! Prefix = as in COBOL, ie. NOT = 
TOKENSK_NEGCONST = 66. ! Negative constant 
TOKENSK_POSCONST = 67, ! Positive constant 
TOKENSK_MAX_OPERATOR = 67; ! === Maximum value of TOKENSW_CODE 
! === for language expression operators 


Define the 90 
This field is 
At present the one use of this field is for, 
For these, the TOKENSW_CODE field contains 
ae 
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' operator er 
H one code fo 


LITERAL 


TOKENSK_TICK_MIN 
TOKENSK_TICK_CONSTRAINED= 
OKENSK~T 


T 


TOKENSK_T1CK_MAX 


rr 


dence parsing. Table 
tick’’ and a subcode 


ICK_FIRSi 


nnnnnunnn 
ese ee 25 


Oo OCONOUSUwN— — 


to 
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thus are smaller if there is only 
r each tick operator. 
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TERMINATOR LEXICAL TOKEN ENTRY 


Terminators are lexical tokens which mark the end of an expression. 
For example, in Subscript excess tone . and Y mark the ends of 
the expressions as in "ARR(K#+2, 1#3=45"',° Similarly, in the command 
SET BREAK X+4 DO(...), the keyword ‘DO’ marks the end of the expres- 
sion as long as it does not appear within parentheses. Terminator 
Lexical Token Entries define tokens which act as expression termina- 
tors in specified contexts. The Terminator Lexical Token Entry has 
the following format: 


PES OSSSSCSORIUSSSSSSOR SOLUTES 
teow rome oooeeee eee soesoesesres }eeeeeeoooeoooos }oeccesessesesses$} 


H TOKENSW_CODE + TOKENSB_FLAGS | TOKENSB_KIND } 


0 
1 : unused H 
2 


TOKENSA_NAME i TOKENSB_LENGTH: 


4 meee reo cre ceo eeo} 


(Terminator name in Counted ASCII) ' 
(Includes TOKENSB_LENGTH and TOKENSA_NAME fields) 


@} cececccccsecce 


' 
' 
' 
‘ 
' 
‘ 
‘ 
‘ 
' 
+ 


The TOKENSB_KIND field of a Terminator Lexical Token Entry always has 
the value zero (0). 


The TOKENSB_FLAGS field can contain the thep TOKENSV_BALANCED_PARENS 
which, if set, indicates that this token acts as a términator only 

if parentheses are balanced when it is encountered. for example 

*)"" terminates a subscript expression only the subscript expression's 
parentheses are balanced so far. Similarly, DO terajnetes the ad- 
dess expression in SET BREAK expr DO... only if it is not enclosed 
in parentheses; otherwise there would be no Sey to include the ident- 
ifier "DO" (as allowed in many languages) in the address expression. 


Define the valid values of the TOKENSW_CODE field for terminators. This 


' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
‘ 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
: field says what kind of terminator thiS Token Entry represents. 
L 


ITERAL 
TOKENSK_MIN_TERMINATOR = z: ! === Minimum value for TOKENSW_CODE 
TOKENSK_TERA_NONE = 0, { No terminator (just end of Life) 
TOKENSK_TERM_COMMA = 1, ! Comma "’, — &- 
TOKENSK_TERM_ CLOSE = z : Close paren or bracket CV or 7Y 
TOKENSK_TERM_COLON = 3, ! Colon ”: 


| 


TOKENSK_TERM_EQUAL 

TOKENSK ~TERM— 

TORENSK-TERM-THEN 

TOKENSK~TERM~COMCOL 
OKENSK 


NSK-TERM_8 
TOKENSK~TERM~DOT 


VINE UNO OONOus 
Sees eee seseeesee es 


1 
1 
1 
1 
1 
1 
1 
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Equal sign ‘'="" 
DO keyword ‘'DO"’ (as in SET BREAK) 
THEN keyword ‘‘THEN'' (as in IF = THEN) 
WHEN keyword ‘WHEN’’ (as in SET BREAK) 
Allow both comma *',"' and colon "': 
Allow comma, WHEN, and DO (SET BREAK) 
Greater-than siign ">"" (as in <p,s,e>) 
Open paren “ig, We 


r ‘)* in CALL 
4: in FOR i=1 TOn 
Dot “.“ (as in Set constant, ie. 1..4) 
=--- Maximum value for TOKEN$W_CODE 
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LINKED LIST NODE 


routines to indicat 


1. The pages on yrich s a Rt ie a is contained. 
C DBGSNXX GET_PAGES ) 


2. Primary boseripters which re —— a range specification. 
( DBGSNXXX_RANGE_VAL ) 


ES ESESOCLOLLESESSSSE OSES ES ESSE 


- oO 
sis 
@o 
aia 
Pio 
‘als 
te 
— § 
tztiz 
Fol Fai 
t's t's 
oro 
o190 
mim 
“<t'- 
pin 
-i2a 
cin 
ims 


A pointer to a Link Node is declared as follows: 
LINKNODE: REF DBGSLINK_NODE 


ee ee — — — — — ee ee ee ee 
* 
9 
na 


Define the Link Node fields and declaration macro. 
FIELD DBGSL INK. NODE_FIELDS = 


DBGSL_LINK_NODE_LINK s f 


rR }- ' Pointer to next node 
pags LINK~ NODE “VALUE 


! Node value field 


LITERAL ; 
DBG$K_LINK_NODE_SIZE = 2; ' Size of Link node in 
! Longwords 
MACRO 
DBGSLINK_NODE = BLOCK CDBGS$K_LINK_NODE_SIZEJ 
FIELD (DBGSLINK_NODE_FIELDS)~ 2%; 


Linked Lists using re definition are generated by language specific 
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MOVED DST ENTRY DEFINITIONS 


To support DST continuation records, every continucd 9ST record is 
serge with its continuation records into one record and ‘s moved to 


The structure is a singly Linked List with its head being 
DBGSGL_MOVED_DST_LIST_HEAD. 


Define the fields of the Moved DST Record Entry. Also define the entry length 
and the declaration macro. 

IELD WOES? IELDS = | 
MDESL_FLINK ={C0,t.], ! Forward Link 


| 

i 

i 

i 

i 

i | 
: DEBUG permanent memory. A List of moved DST records is kept to allow 

: access to these moved records. Each entry on that List has the follow- 

: ing structure: | 
i 

33 222 SeSESB EES | 
RESSSESSEROEIESESETSELT ESET ETE | 
i 9 — — OO CSS SSS SSS SS SSSSSSSSSSSSSSSESSESSSESSESEEEOEE eeeee mae mame $ 

i MDESL_FLINK } | 
; : MDESL_ORIGINAL_DSTPTR \ | 
: MDESL_REAL_DSTPTR i 

4 (oo — ee — — ST — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — wm — ee we Be ey oe ed am ne om ee me ee am em ee on | 
H MDESL_REAL_LENGTH H 

i MDESL_NEXT_DSTPTR | 
' me we we ee we en ee ee ee cma wee mee eek ee ee mH a eee oe oe ee oe om em em SR Ge et oe ee om Se on a uo me woe + 

i 
; 
3 | 
: As the RST for a module is built, continuation records are merged 

4 and the new ‘‘moved"’ DST pointer is placed in the RST entry. Thus, 

moved DSTs are transparent for those routines that access the RST. 
! Those routines that obtain DST pointers from the DST itself are: 

i o Routines that deal with SEPTYP records 

: © Routines that access indirect type specs 
: © Routines that access novel IJ type spes 

o Routines that access the next DST record 

i These routines must access those pointers through routines that search 

: the structure to make sure that the DST hasn't been moved. The routines 

: currently provided are: 
© DBGSRST_DST_PTR - Return the “'real'’ DST pointer 

o DBGSRST_NEXT_DST - Return the "‘next’’ DST pointer 

: 

i 

i 

i 

f 
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DESL ORIGINAL (Ug a 2 oe oe FP ! The Original OST pointer 
MDESL_REAL_DSTPTR = ¢° . de i the e new, moved, real DST pointer 
ESL_REAL_LENGTH = o he de i The moved DST's length 
+ cael dell te =(€ 4, LL i The next DST pointer 
LITERAL 
MDESK_LENGTH = 5; ! Length of an entry in longwords 


MDESRECORD = BLOCKC,LONG) FIELD(MDESFIELDS) 2%; 


! NOTE: MDESL_NEXT_DSTPTR is a simple address *8*64 to the next DST record 
! with all the continuation records consumed. At the time the calculation is 

' made it is not known if the record will be relocated. Thus Tbk’ access to it 
! must also check it for being relocated by calling DBGSRST_DST_PTR 
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NUMBER SCANNER STATE TABLE 


The Lexical Number Scanner in routine DBGSLEXICAL_SCANNER operates off 

a Finite-State Machine state table which defines Ehe allowed formats 

of numeric constants in the current language. There is thus one Number 

State Table for each Language — by oyeve (although some Lan- 
guages can share state tables). Each state in the state table is 

represented by a List of two or more State Table Trans $ien Entries, 

each of which specifies a state transition to be taken if the current 
input character is of a class specified in the Transition Entry. The 
format of a Number Scanner State Table Entry is as follows: 


10585 es ees Tosa ek las l bos 76543210 | 
— wt om mm er emer eee ewes n wn eee — Rea ed oem an eam} 


xe First State Table Transition Entry 


t¢mme ton ecm mone moc es poem awmecraec nn ema nemo ween we ae oe se ee (SOY oe me Ge Ge Dom me am om oD 


Additional State Table Transition Entries 


' 
' 

+ 
' 
' 
‘ 
‘ 
‘ 
' 


oo } cocccs 


! 
i 
i 
i 
i 
i 
i 
; 
i 
i 
: 


The individual State Table Transition Entry has the following format: 


332 222 Heese atcaar 
109 5 5 6 g 4 : 5 1098765432109876543210 
fewer o ree meme ese namo ene wame a tee ecw os ee ee ee oe 


0 } NUMST$W_NEXT_STATE !NUMSTSB_ACTION | $B_CHAR_CLASS } 


$wemen en eco mennm anon en es peewee wr sceocsecneee + 


The whole Number Scanner State Table for a Language simply consists 
of a sequence of concatenated State Table Entries, one entry per 
state in the Finite-State Machine. The whole State Table is thus 

a vector of State Table Transition Entries. lement zero of the 
state table is the begining of the state table's Start State, and 
each transition’s NUMSTSW_NEXT_STATE pointer is a state table index 
which points to the beginning of the next state's State Table Entry. 


A pointer to a Number Scanner State Table is declared as follows: 


STATE TABLE: REF NUMSTSTABLE 


This declares STATE_TABLE to be a block yocter which is referenced 
as .STATE_TABLEC.STATE_INDEX, field-name 


where STATE_INDEX is the 
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vector index which points to a specific Number Scanner State Table 
Transition Entry. 


Also define the declaration macro. 
IELD NUMSTSFLD_DEF = 


NUMSTSB_CHAR_CLASS = C 0, 80_ J, } Character class that activates 
ß is state transition 
NUMSTSB_ACTION =({ 0, 81. ], | CASE index for semantic action to be | 
taken during state transition 
FPSO SET STATE =({ 0, wi_ J Index of next state after transition 


1 
1 
1 
‘ 
i 
Define the fields in the Number Scanner State Table Transition Entry. 
i 
f 


MACRO 
NUMSTSTABLE = BLOCKVECTORC,1,LONG) FIELD(NUMSTSFLD_DEF) %; 


: Define the allowed values of the character class field NUMST$B_CHAR_CLASS. 
! These are the different classes of characters which are significant when 
scanning numeric constants. 


LITERAL | 


' 
i 
i 
i 
i 
i 
F 


NUMSTSK_MIN_CLASS = 0, ! === Minimum character class code 

NUMSTSK_CLASS_OTHER =0, {All other characters) | 

NUMSTSK“CLASS_DIGIT = 1, : The decimal a up rags? ey cel | 
NUMSTSK~ CLASS =HEXDIGIT * z. : The hex digits ‘A’, ‘'C'', and * 

NURS TSE <CLASS_DOT = 3, ! The 4 point . 

NUMSTSK~CLASS_ PLUS = 4, ' The plus sigh * tier exponents) 

NUMSTSK_CLASS_MINUS = 5, ! The minus s Ae ougenente) 

NUMSTSK-CLASS_ =§. =; The letter (8. (for binary 

NUMSTSK_CLASS_D = 7, : The letter P (for exponents) 

NUMSTSK_CLASS_E = 3 ! The letter X!! (for exponents) 

NUMSTSK_CLASS_Q = ! The letter ‘Q"' (for exponents) 

NUMSTSK~CLASS_X = 16, i The letter "x" (for hexadecimal) 

NUMSTSK_CLASS_UNDERSCORE= 11, ! ‘is or pened in numbers in ADA 

NUMSTS$K_ CLASS" POUND 12, |: °F is al loyed d in numbers in ADA 

NUMSTSK_CLASS_G = 135, ! The letter (for exponents) 

NUMSTSK—MAX_CCASS = 13; ! === Maximum pL. class code 


! Define the valid values for the NUMSTSB_ACTION field. These values are CASE 
! indices which select the semantic action routine to be executed for each 
; state transition. 


LITERAL 
STSK_MIN_ACTION = 1, ! eco — action index 
ST$K_ACT_DO_NOTHING = 1, ! No semantic action needed 
NUMSTSK_ACT_GO PAST _DIGIT = ¢ ! Go pest digit in integer part 
NUMSTSK-ACT"MARK_DEC_PT = 3, ! Mar thet 2 deg inal point” was found 
NUMSTSK-ACT"GO_ PAST FRAC = 4, ! Go past d n fraction par 
NUMSTSKUACT"MARK_E_EXP = 5, ! Mar chat’ ~exponent field vas found 
NUMSTSK_ACT_MARK_D_EXP = 6, ! Mark that D-exponent field was found 


H 
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Mark that Q-exponent field was found 

Backup pointers and return token 

We got a number--return token for it 

Not a numeric constant 

should never get here--give error 

COBOL this could be part of a name 
In COBOL this could be part of a name 


oon 


Go past di 


'_wvww ets 
- 
n x 


i s not in hex mod 
in Pack decimal 


ti 
i 
Go past digit in Pack decimal 


We got a Packed Stee eer 


return token for 
umber i 


n 
! Mark that G-exponent field was found 
; | === Maximum action index 


— —2 — — — — — 2— — 
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' 
i 
i 
i 
i 
i 
; 
i 
i 
i 
; 
i 
; 


wn = ©& 


Define the fields of the Operator Information Table entry. 
declaration macro. 


IELD OPINFOSFLD_DEF = 
SET 


OPERATOR INFORMATION TABLE 


The Operator Information Table is a blockvector indexed by Operator 


Code (e.g., TOKENSK SUBTRACT) which gives pointers to tables which 


contain the information necessary to select the type conversions and 
then the routine invocations which evaluate the operators of a given 


Language. 

PED SASSSSLORUESOSSCSELSSSESSTEN 
Se ceasicaphcgedrsot oT a ⏑ 
—— TEN 
RN ET aaah. 
— flags 


ù —4 


A pointer to an Operator Information Table is declared as follows: 
OPINFO_TABLE: REF OPINFOSTABLE 


OPINFOSL_ROUTTBL = 


OP INFOSL_H ! Address of Type Hierarch ble 
Flag for whe 
this operation. 


TES; 


MACRO 
OPINFOSTABLE = BLOCKVECTORCTOKENSK_MAX_OPERATOR + 1,4,LONG) 
FIELD(OPINFOSFLD_DEF) % 
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Also define the 


! Address of Operator Routine Table 


i] 
a Ta 

' Address of Type Incom atibility Table 
5 : er fetch is done on 
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OPERATOR ROUTINE TABLE 


The Operator Boyt ine Table for , given operator contains one entry for 
each rout which can be associated with that operator. Each such 
entry contains the operand t pes gcceptes by that routine (e.g., 
REAL,REAL for F Floating mu t ply), the reeule type of the operation, 
a rout ne index which identifies the routine to be invoked, and an 
optional type'¢ check routine index which identifies the typeid check 


routine to invoked. 
2 BEERS EEE 
; 3 § § 5 6 5 é 5 g ; 987654 : 2109876543210 
$0 0006 6666S SSS SSSSSSSSE 6 SSSSSSSSSSSSSSSSSSSSSSSSSSSESEEOEOEEEES + 
H ORTSW_ROUT SORTS _LEFTTYPE:ORTSB_RIGHT TYPE: 
1 ‘ 0 ‘ORTSB_RESULT_TYPE: ORTSW_TYPEID_ROUT : 


ù— — tee kee Te — —— ——2—4 


A pointer to an operator routine table entry is declared as follows: 
ORTPTR : REF ORTSENTRY 


Define the fields of the Operator Routine Table entry. Also define a 
declaration macro. 


IELD ORTSFLD_DEF = 


ee ee —— te te te te te te tel eee ee ee 
Oo 


ORTSA_BASE_ADD =(£0,A_] ! Base address 
ORTSB_RIGHT TYPE ={0, 80. J. ! The cit operand Dtype 
TSB-LEFT_T ={0, B81. J, ! The left operand Dtype 
“TYPES = b. WO. J, ! The operand Dtype 
ORTS$W_ROUT = - Wil J,  ! The corresponding routine index 
ORTSW_TYPEID_ROUT =C€ 1, WO. J, ! The corresponding type id check 
; routine index 
= C1, 62.) ! Result Dtype 


ORTSB_RESULT_TYPE 
TES; 


MACRO 
ORTSENTRY = BLOCKC2, LONG] FIELD(ORTSFLD_DEF) 2%; 


CRO 
ORTSTABLE = BLOCKVECTORC,2,LONG) FIELD(ORTSFLD_DEF) %; 


! This is used to encode “unknown result type’’ in the dtype field of 
: the result value descriptor constructed in DBGEVALOP. 


LITERAL 
ORTSK_RESULT_UNKNOWN = 0; 
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! Literals that are yee in the new style operator evaluation. These 

: values are stored in the ORTSW_ROUT * of the Operator Routine 

! Table entry or a ‘yen operator operating on a given Hy ro 

: types. The Literal is used as a case index in the DBGSPERFORM_OPERATOR 
: routine in order to actually do operations. 


i eeeereererrerererreereerenerentenereeenereeeeeeeeeeneeeeeeeereerereeetee 
Note = the order of the case indices in DBGPERMOP must correspond 
exactly to the ordering of the literals here. One must be very careful 
in changing this List. 


gure out a better way to get these literals shared. 


In the meantime, the List below must be kept dense and must correspond 
exactly to the case Labels in DBGPERMOP. 


— 
i 
i 
i 
: Tote situation is of course a maintenance problem and we should eventually 
i 
i 
XX 


‘eee 
LITERAL 
ORTSK_MIN_ROUT = 1, 


: Add. 


— 


ORTSK_ADD_B_B 
ORTSK_ADD_80 BU 


ORTSK 


tt  OONAOUE 


WIN "Or 2 se ee sees 


ERREKKKK 
Pee eee 


MNO 
SESS Saas 
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3 


ees eee ee ees eee 
GOK MUM TNOF. DOO 
CNPP SF WT AT 


o®s 2 ovr en 


3355455555455 - 
my -+-t-}-t-t-}-}-{-}-}-{-{-} 


~ 
— 

a 
= 
we 
— 


—2 — 222222222 
wre TT TOs 


C 


LU 


L 
L 


! Shift 


ORTSK 


operations. 
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ese es 8 8 & e*ee seeeeesees ee & ss 


ese ee ee ee ee ese eseeeeeeseeeesd ®\=28 8s 8 ORK TWUMTN OPDOOK—TWUMTNO hw 
PN TNOP- DOO NIMMNTMN OR. OCO-— UM ST MWOR.DOOOOCSCSOSO 0 1000000⏑ —-———— — —— 
— 0.60 00 60 60 60 60 COO OO OO SOOO r KKK K— SKK SKK See EEK —— 
nhannnnnnnun hnnnnnnnnnnun hnnnnnnnnunon oe te te a ee nu 
a 
c 
VuYU °o 
“woo - — 
= R&RuOoouxzr frit wo - - — — — — YUUYUY www 
wow titittiwew egeeres > F > > ⸗ —E—— 4 wooxrt 
O20604.0604.00Tu400 t& Ce Mae Ce OB HOWT Ft t OBwuwoworzritiit eas 
@eeeeeee ett © ee & & &— & & IH (ee 0 6 t Rw #006 6 6 Rew | 
Seeeeeeeceacae a 22> > 33> © O3BHKHOUTLOVUT OBwKHOUTLOUOT Os 
SSSSsSSssss3 © SU loess’ § eeeeveevetcete $#e666 6 66 6 86 8 ‘6 
gesecercers 2 scggueccauues 2 ssssssdssd3 — 
os —— a *s. £ SM AF, 3 — 2222222 oe, 
— mw 22 nf af = 
—— ——— S KAAAAAAAAAAED & BAAAAAAAADA xuxununxxnx ae 
eee eeeeeee eee eee ————— 
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ese eee es eee seees eee ee ees eee se eseeeeeee eens 
NOP-DOOK—TM MTMNORDOO —UMTMNOR.CO GOK UM TNOR. OOO— CUM 
as ae ee — ⸗——— TFMMNMAMNAAMNAIANDOOWODO 
0 et eel ee el el el lll ll ele el le ed ed ed ed ed -——— 


gical operations. 


. 
w 
8 
° 
— 
bet 
vO 
— 
a 
0 
— 
@ 
fel 
om 
5 


' Bitwise lo 


Lt 


Soooooe 
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Absolute Value. 


| 
| 
| 
ORTSK_AND_L_L = 186, } 
ORTSK-AND-D_D = 167, : 
ORTSK-NOT—B = 168, 
ORTSK-NOT—W = 169. | i 
ORTSK-NOT“L = 170; | 
ORTSK-NOT~D = 171, i 
ORTSK-OR_6_8 = 1%. | i 
ORTSK~OR"WW = 173, | 
ORTSK“OR“L“L = 17%; i 
ORTS$K-OR-D-D = 175; | i 
ORTS$K-XOR_C_L = 176; | 
H Unary plus and minus. | : 
ORTSK _UNARY_MINUS_B = 177, | i 
ORTSK-UNARY—M1 = 178, | ! 
ORTSK-UNARY MINUS _L = 179; | i 
ORTSKUNARY-MINUS-LU = _180, | i 
ORTSK-UNARY SF = 181, | i 
ORTSK-UNARY~MINUS_D = 188. i 
ORTSK-UNARY_MINUS_G = 183, 
T$K“UNARY MINUS _H = 184, i 
ORTSK-UNARY-MINUS-FC = _185, i 
ORTSK"UNARY-MINUS-DC = 186, i 
ORTSK-UNARY-MINUS-GC _ =_‘187, | i 
ORTSK-UNARY-MINUS-HC = =_—«*188,, | i 
ORTSK_UNARY_PLUS_6 = 189, : 
ORTS$K-UNARY—PLUS _W = 190, | F 
ORTSK"UNARY~PLUS_L = 191, 
“UNARY~PLUS“F = 198. | 
ORTSK_UNARY_PLUS_ = 193, 
ORTS$K“UNARY~PLUS~G = 194; 
ORTS$K~UNARY~PLUS_H = 195; 
ORTSK~UNARY~PLUS FC = 196, 
ORTSK_UNARY ~ LUS~DC = 197, 
ORTSK~UNARY~PLUS GC = 198, 
ORTSK~UNARY~PLUS~HC = 199; 
ORTsK _ABS_B = 200, 
ORTSK~ABS _W = 201, 
TSK“ABS_L = 0g, | 
ORTSK~ABS_F = 30 ; 
TSK“ABS_D = 204, | 
TSK~ABS-G = 205, 
ORTSK~ABS_H = 206, 
! Indirection. | 
} 
ORTSK_ INDIRECT_LU = 307. 
ORTSK~INDIRECT-TPTR = 208, 


BLISS bit-select. 
ORTSK_BITSELECT = 209, | 
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: Set operations. 
ont DIFFERENCE _SET_SET = 


5 
C 


E 
E 
T 
4 
E 


T 

T 

SET_SET 
a 
ORTSK arate -5 


ETS 

SETS 

* ET SE 
ORTSK_- INTERSECT 
~3t! $s 

SETS 

astT 


erat 

i i ADoREss oF OF te), SIZEOF 

i Also, addition or subtraction involving typed pointers 

is special-cased in C because there is scaling to be done. 


ORTSK -ADDRESS_L = 218, 
ORTSK_SIZEOF_C = 219, 
ORTSK_ADD_TPTR_L = $ 0, 
ORTSK_SUB_TPTR_L = 221, 
ORTSK_SUB_TPTR_TPTR = 222, 


ORTSK _BIT_IMP_8_B 
ORTSK_BIT_IMP_W_W 
ORTSK_BIT_IMP_L“-L 
' C pre- and post=- increment, decrement (++X X+## <-=X X-=) 


ORTSK -PRE_INCR_L 


2 

g 

2 
! BASIC implication (A imp B) 

2 | 

2 


FPWAWWIWII — 
0 Oco o 
eeseeeseeeeee eee eee 


POPOPOPONIPIPININPIPONPIPYININININY 


o 
DD 
SRE 
0 
2 
* 
o on — 
oo Men rr 
m 
Le 
nnonnnnnnnnnnnnnnu 


DECR 
ORTSK_POST_DECR_TPTR 
: Packed Decimal Operations. 


ORTSK_ADD_P_P 
ORT$K~SUB-P-P 
ORTSK_MUL_P_ 
ORTSK-DIV"P—P 
ORT$K-UNARY"PLUS _P 
ORTSK-UNARY_MINUS_P 


nhnnnnn 
= 
uw 
. 
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ORT$K_EQ 
ORT SK “NE 
é 


PL/I Bit-String Operations. 


ORTSK_CONCAT_TF_TF 
ORTSK QL_TF-TF 


“awh 


ORTSK_EQL 


R 
ORTSK_NEQ_RFA_RFA 


ORTSK_UNARY_PLUS _Q 
ORTSK_UNARY_MINUS_Q 
ORTSK_UNARY_PLUS_6 
ORTSK_UNARY_MINUS_O 


Built-in Functions 


ORTSK_SUCC_ENUM 
ORTS$K—PRED—ENUM 


— 
Pd 


Fixed binary operations 


ORTSK~UNARY MINUS FIXED 


Peas Be Ben eng Re feed Ded Bame Sorat foe 
SS DK OK OK OK OE OK OK OK OK 


Mmmmmmnmmmnmn 
bw Ahh) hh) ~) ~) ~ 


PAA AA AOCOOMMMMUM 
CONGO VUES WR—OVOONOUS 


Mrorr=3= for 


'ee* ALSO CHANGE the correszending 
‘eee definition in DBGPERMOP.MAR if 
!ee® you change this. 


: Literals that are defined for type id check in DBGSPERFORM_TYPEID_CHECK. 
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16-SEP- 


— 
oe. 
ao 
awd 
« 

° 
@ 
— 
rc} 
3 


F 
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TYPE GRAPH 


The type conversions that are done for a given operator in a given 
language are specified by a set of directed acye i§ qrephs. For 
example, part of the graph that specifies the implicit type conver- 
sions to be done for FORTRAN addition might look Like: 


L => F => D =>H 


FC => DC 


Each graph is represented by listing its edges. Each edge is just a 
pair of Type IDs. 


ate we define the data structure used to declare the edges of these 
graphs. 


RES ESESSCSOESOESECESSELV ESTES — 
22 —E 


+ 
: HIGHER_TYPE { LOWER_TYPE ; 


feweewn enn ener scece eee er ee memes se o-+ 
Define the fields in an entry in an edge of a Type Graph. 
IELD TWEE , RAPUSFLO_DEF = 
TYPE _GRAPHSB_LOWER_ TYPE 


= 
TYPE-GRAPHS$B_HIGHER TYPE 
TYPE _GRAPHSW_BOTH_TYPES = 


' 
i 
! 
; 
i 
: 


" 
ane 
ooo 
ss 8 
cow 
— 
oe 

— 


Define the macro which is used to declare an entry in a Type Graph 
MACR 


0 
TYPE_GRAPHSENTRY = BLOCK [1,WORD) FIELD (TYPE_GRAPHSFLD_DEF) %; 
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TYPE CONVERSION INFORMATION TABLE 


: 

' 

i 

' 

i The Type Conversion Information Table is a vector of longwords used 
: by 3 anges which gives pointers to tables which contain the 

: nformation necessary to select the type conversions and then 

: the routine invocations which does the type conversion. 

i 

i 3 2 1117171111111 

: 1 3 § H $ é g 4 4 g ; § 987654 j 2109876543210 
: 0 ‘ CVTINFOSL_MAPTBL H 
! a CVTINFOSL_CVTTBL ‘ 
we flags 
‘ eee eeeeeeeeeeeeee Seeeseeeeeeeeeeeeeoeooesoeaeoasececen eeeeoe ce ow oe ee fh 
: 

' 

i A pointer to an Type Conversion Information Table is declared as 
: follows: 

CVTINFO_TABLE: REF CVTINFOSTABLE 

i 

! Define the fields of the Type Conversion Information Table entry. Also 
; define the declaration macro. 

F 


IELD CVT IWFOSFLD xx⸗ = 


CVTINFOSL_MAPTBL =([({ 0, L_ J, ! Address of Type Map Table 
CVTINFOSL_CVTTBL — * address of Type Conversion Table 
CVT INFO$SV_ROUND =C 2, vit V Flag to indicate conversion result 
res : s rounded 


MACRO 
CVTINFOSTABLE = BLOCKC3,LONG) FIELD (CVTINFOSFLD_DEF) 2%; 
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TYPE CONVERT ENTRY 


cree Convert Entry contains a type conversion 
ne index which identifies the routine to be invoked, from data 
type. and to data type. 


PET ScSSS SRO CTOSSCOCSO LSE ESESEE 


! 
' 
' 
' 
' 
' 
' 
' 
' 
— 
J 
' 
' ù— 24 
1 
— 
— 
J 
— 
1 
— 
i 
i 
i 
i 


: TYPE _CVT$W_ROUT + HIGHER_TYPE { LOWER_TYPE ; 


Pemwwwooweoesowewescoecoceccccoccceeccesceccccecccceccesecccces$ 


A pointer to an Type Map Entry is declared as follows: 
CVTPTR : REF TYPE_CVTSENTRY 


Define the fields of the Type Map Table entry. Also define an entry 
declaration macro. 


FIELD 
TYPE ,CVTSFLO_ DEF = 

TYPE_CVT$B_LOWER_T = (0, 80. 
TYPE“CVTSB- “HIGHER TYPE = (0; B1- 
TYPE CV TSUCRAP P = (0, wO 
TYPE-CV T$u-ROUT = (0, von}. 
TES; 

MACRO 


TYPE_CVTSENTRY = BLOCK(1, LONG] FIELD (TYPE_CVTSFLD_DEF) 2%; 


' Literals that are used * the new etyte operator evaluatio 
i The Literal is used as a case index in the DBGSLANGUAGE “T¥PE _CONV 
routine in order to actually do the conversion. 


ieee 


LITERAL 
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——ä——————————cca— ee ee ee ee ee ee te 


eee 


PATHNAME DESCRIPTORS 


The pathname descriptor is used internally in the D 
@ pathname, including data que, titicas ion. Thus “MO 
name in this sense, and so is "MOD\ROUT\A.B.C’. Th 
name descriptor is shown here: 


PESESSSSSSSLSOSSOSESELT ESSE TER 
— Se ere Y 


‘ Unused iPTHSB_LOCINVOC | PTHSB_PATHCNT : PTHSB_TOTCNT ; 


¢eoee mmm o ceo mee fm ome wma r ees ees ee poms e wn wm mm memes ft oom ee oe emo eo eon} 


: PTHSL_INVOCNUM ' 


Fee meeereeoeeeeeeeeeeeeeooeeseoseeseeeeeeesoeeeeeeeococoecoccoon} 


PTHSA_PATHVECTOR 


ugger to represent 
ROUT\X" is a path- 
format of a path- 


eb 
D\ 
& 


Pointers to Counted ASCII Strings 
(one per longword) 


— 


The Pathname Descriptor contains two counts fields which give the total 
number of names in the pathname (five for M\R\A.B.C) and the total num- 
ber of names before the first dot (three for M\R\A.B.C). it also con- 
tains an invocation number (which is zero none was explicitly spec t= 
fied) and an index into PTHSA_PATHVECTOR which indicates which pathname 
soncenert “ot qualified by chy invocation number (1 for A 2\X and 4 for 
MARI\R2\R3 5\X). This index is zero if no invocation number was given. 
The rest of the descriptor consists of longwords containing —— to 
—8—— names in the pathname, each represented by a Counted 
ring. 


A pointer to a Pathname Descriptor is declared as follows: 
PATHPTR: REF PTHSPATHNAME 


Define the Pathname Descriptor fields. 
FIELD PTSFLD_DEF = 


PTHS$B_TOTCNT = (0, 80. J, ! Total number of names in pathname 
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} anc using all data qualification 
PTHSB_PATHCNT =({ 0, B1_ J, ! Numver 9 names in pathnene proper 
: before any data qualification 

PTHSB_LOCINVOC =[{ 0, B2.], ! The location in the vestor below of 

: the name with an mygeet on num- 

: ber (first name is 1) cr zero 
83_ 3. : Un 

i 

i 

i 


| ooo =[{ 0, used 

PTHSL_INVOCNUM = 1. L. }° The invocation number or zero 
PTHSA_PATHVECTOR= [ 2, A The start of the pathname vector--has 
one name pointer cgotnt ng to a 
Tes Counted ASCII name) per longword. 


! Define the maximum allowed size of a pathname, i.e. the maximum number of 
| sadtuéues names, including data components. Also define the size of the 


' 
: ixed part of the descriptor and the declaration macro. 


LITERAL 
DBGSK_MAX_PATHNAME = 30. ! Maximum size of a pathname 
DBGSK_PATADESCSIZE = 2, ; Size of fixed part of Pathname 


*3 
DBGSK_PATHNAME_SIZE = DBGSK_MAX_PATHNAME + DBGSK_PATHDESCSIZE; 


MACRO 


PTHSPATHNAME = BLOCKCDBGSK_PATHNAME_SIZE) FIELD(PTHSFLD_DEF) %; 
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PERMANENT SYMBOL DESCRIPTORS 


The Permanent Symbol Descriptor is used to dyser tbe Debugger ‘permanent 
s is" in Value Descriptors, Pr 4— — ptors, and address expres- 
sions. Permanent symbols name the VAX registers; ‘RO’ is t 


hus @ perma- 
nent symbol. Permanent Symbol Descriptors are only 


— used for languages 
COBOL and PL/I. A Permanent Symbol Descriptor has this format: 


SED SSSSSORCEIOSUSSOSO LOSES ESSE 


— 
i 
i 
i 
i 
H 
i 
i 
i 
i 
i 
i 
i 
‘ 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


0 ; Unused iDBGSB_PERMSD_1D; 
1 ‘ DBGSL_PERMSD_ADDR ‘ 
-% DBGSL_PERMSD_PATH ' 


Fee ee eee eee eee ee eee eee SeSeSeSeeSSeeSeoeeeeeoeeseeseceoooooooooen & 


A pointer to a Permanent Symbol Descriptor is declared as follows: 
PSDPTR: REF DBGSPERMSD 
eee 
Define the Permanent Symbol Descriptor fields and declaration macro. 
FIELD BOSSPEANED _F SELOS = 


DBGSB_PERMSD_ID ={( 0, BO_J, ! Symbol ID (register number) 
DBGSL_PERMSD_ADDR = { 1, L_ }° : Address of the register contents 
Ferner EAS PATE et gd ! Address of symbol"s pathname descr. 
LITERAL 
DBGSK_PERMSD_SIZE = 3; ! Size of Permanent Symbol Descriptor 
: in longwords 
MACRO 


DBGSPERMSD = BLOCKCDBGSK_PERMSD_SIZE] FIELD(DBGSPERMSD_FIELDS) %; 


: These are the possible values of the DBGSB_PERMSD_ID field. 


LITERAL 
G$K_RO = ° ! Register RO 
DBGSK_R1 = 201, ! Register Ri 
93 = ¢° ! Register Re 
G$K_R = ° ! Register R 
DBGSK_R4 = ° ' Register R4 
GSK_RS = 205, ! Register R5 


SSS —— —— ————— — — — 


— ee) 
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DBGSK_PC 
DBGSK_PSL 


— ee SL 
Cuil wn—O0ow 


hnunnnnnnnnann 
ees ee eee eee 
emcee ececesesasesosacs 


R1 
! Argument Pointer (AP) 


Frame Pointer (FP) 

Stack Pointer (SP) 

Program Counter (PC) 

Processor Status Longword (PSL) 


be ee ee ee ee te ee 


LITERAL 
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PREDECLARED IDENTIFIER ENTRY 


Language reserves — —— Identifier as names ef functions, 
roveeyres. otebess value »Sts- Predeclared Identifier Entr Y 
zs used AY G to descet be one of space dfretecteres, identi * 
An ident +4 is looked up in this table, an entry is found 
yotus descri "Pree is greased for. this overs. For example, enue * FALSE 
in PASCAL, E., in FORTRAN. The Predeclared Identifier 
Entry has the gt May format: 


ES OSESO SSC LOOSUSSSSORS ESET CLS 
4 


unused : PRIDSB_FCODE {| PRIDSB_DTYPE { PRIDSB_KIND |} 


f¢ewecece weeconons coceeeewsoonencn}ocesceeseosesos}occcecesscecesce} 


: PRIDS$L_VALUE i 


— oawae seeee —4 


i PRIDSA_NAME { PRIDSB_LENGTH | 


Geoweeeeesoweecoscoceccosooosces$ 


(Predeclared Identifier name in Counted ASCII) H 
(Includes PRIDSB_LENGTH and PRIDSA_NAME fields) 


} occcasccccccces 


‘ 
J 
‘ 
‘ 
1 
' 
‘ 
i 

+ 


The PRIDSB_KIND 34 defines the kind of Predefined Identifier. 
The PRIDSB_KIND field of an Predefined Identifier Constant Entry 
always has the value of PRIDSK_CONSTANT. It has the following format. 
A pointer to a Predefined Identifier Value Entry is defined as follows: 


PRIDPTR: REF PRIDSENTRY 


Define the fields of the Predefined Identifier Entry. 
FIELD PRIDSFLD DEF = 


SET 
PRID$B_KIND = 6. B0_), } Predet ined Identifier Kind 
ttt phe = 3° Bi. ° : pete t ype of bw By — ID constant 

= o eo 7 e a a 
PRIDSL_ VALUE =(1, tI] ! Data value of the Py ede fined ID constant 
PRIDSB_LENGTH = 3 94 ! Length of the Predefined ID name in butes 
PRIDSA. = - All ! Predefined 1D name in ASCII 


PRIDSK_ENTSIZE = 2; Size of fixed part is 2 longwords 
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PRIDSENTRY = BLOCKC,LONG) FIELD(PRIDSFLD_DEF) %; 
: Define the valid values of the PRIDSB_KIND field. 


LITERAL 
PRIDSK_CONSTANT = 1; ' Predeclared ID constant 


? 
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PRIMARY AND VALUE DESCRIPTOR HEADER 


' 
eee 


ereeery Descriptors and Value Descriptors are descriptors built b 
DEBUG to describe Primary Symbols and language values, respectively. 
The Language-independent versions of these descriptors all have a 
common header section which has the following format: 


| 
| 
RESSSESO CSO LSOSUSCOSSORS ESTES SE | 


$e -ceece oe weet oem neem necamaser mn mannwe rene occuwa } 


—— Ra te ct I ——— sais doe | 
i Pn ane Fi cata a ATR ne cant ee EEE ; | 
— ERE EAE — emcee wnt hl RS Ne TMF : 
= DBGSL_DHDR_SYMIDO 


fw ewe ease eee er enn eer ne eee eer erm cee mee SS oem aes oe — + 


Define the Primary or Value Descriptor Header Block fields. 
IELD ——— = 


' 
| 
F 


T | 
DBG$B_DHDR_LANG =({ 0, 83. ], ! Language Code. 
DBGS$B_DHDR_TYP = (0, B2_ }° ' Type Code (Primary/Value/...) | 
DBG$SW_DHDR_LENGTH =([( 0, wO_ J, ! Length of descriptor in bytes 

BGS$B_DHDR_ eft, OS. 2s ! RST kind of entity | 
DBG$B_DHOR_F CODE ={( 1, 8 4 ! FCODE of data item 
DBG$W_DHDR_ FLAGS =({1,W * ! Flags word | 

DBGSV_DHBR_AGGR =(€ 1, 90_(0)], ! Set if data item is an aggregate 

DBG$V_DHDR_SUBRE =(€1, v0_.(1)], ! Set if partial data reference 

DBGSV_DHDR_BITREF ={[ 1, vp ~ ($33 ! Set if bit-string sub-reference 

DBGSV_DHDR_SGNEXT =(€ 1, VO_(35)J, ! Set if value should be sign-extended 

DBG$V_DHOR_BLIBLK =([( 1, —3534 ! Set if data item is a BLISS block 

DBG$V_DHDR_UNCVT =({ 1, v0_(5)], ! Unconverted constant flag 

DBG$V_DHDR_LITERAL = (C1, VO_(6)J, ! Flag for Literal value 

DBGS$V_DHDR_OVERRIDE = ( 1, —9.54— ' Set if override was present 

DBGS$V_DHDR_TMPRE ={ 1, vi_(0) ' Set if temporary SUBREF 

DBG$V“DHDR“FORMAT = [ 1, V17(4,45), | Printing Format Code 
DBGSL_DADR_TYPEID = f my © j. ' TYPEID of data item 

= : ie ' Context Symid (root data item) 


DBG$L_DHDR_SYMIDO 
TES; 
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PRIMARY AND VALUE DESCRIPTOR HEADER FOR COBOL AND PL/I 


The Primary Descriptor and the Value Descriptor for COBOL and PL/I are 
descriptor blocks built by the language-specific routines for those two 
pengveges. As such their contents are unknown to the Debugger kernel 
(and are not described here), but they all must have the common header 
described here. A Primary Descriptor or Value Descriptor for COBOL or 
PL/I thus has this format: 


PES OSSSSCRCETOSUSCSOSE LS ES SESE 


0 : $B8_DHEAD_LANG ‘ $B8_DHEAD_TYPE ‘ DBGS$W_DHEAD_LENGTH H 
1 H DBGSL_DHEAD_POINTER i 
2 ! 
F Language-Specific Information 
ee ‘ aS ae a Ee OT aN 
A pointer to a descriptor header block is declared as follows: 
DESCPTR: REF DBGSDHEAD 
Ree 


Define the Value or Primary Descriptor Header Block fields and the declaration 
! macro. 
' 


FIELD DBGSDHEAD_FIELDS = 


DBGS$W_DHEAD_LENGTH = C 0, WO_ J,! Length of descriptor in bytes 

: one lugtog this header 
DBG$B_DHEAD_TYPE =([ 0, Be. }°j The type of this descriptor 
DBG$B_DHEAD_LANG = f 65__J,! Language of the descriptor 
Feet nee POINTERS 1, L. J] ! Unused at present 


LITERAL 
DBGSK_DHEAD_SIZE = 2; ! Size of descriptor header in longwords 


MACRO 
DBGSDHEAD = BLOCKCDBGSK_DHEAD_SIZE] FIELD(DBGSDHEAD_FIELDS) %; 
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The possible values of the DBG$B_DHEAD_LANG field are the language codes 
defined in the section entitled “MisceTlaneous Literals’’ above. The possible 
value of the DBGSB_DHEAD_TYPE field, which are defined in the same section, 
are the following: 


DBGSK_PRIMARY DESC a Primary Descriptor 


! This is 
DBGSK_VALUE_DES ! This is a non-volatile Value Descriptor 
DBGSK_V_VALOE_DESC ! This is a volatile Value Descriptor 
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PRIMARY DESCRIPTOR DEFINITIONS 


Primary Descriptors describe Primary Symbols parsed in DEBUG commands. 

A Aly not syne may be a simple name, such as ", or a more complex 
name including pathname qualification gata quel iy cation, subscripting, 
and dereferencing, such as "MOD\ROUT\A.BL2,3]°.C(4).D". 


The Primary Descriptor described here is the Primary Descriptor built 
by the Language-independent parser in module DBGPARSER. 


A py iaery Descriptor consists of a Root Node followed by a doubly 
Linked List of Sub-Nodes “sh describe the individual components 
of the symbol described by the Primary Descriptor. Each Sub-Node 
thus describes an instance of data qualification, subscripting, 
derefencing, or the like. The last Sub-Node describes the final 
object named by the Primary Symbol. 


Consider the Primary Symbol ‘‘A\B\C.D[2]*.E"' for example. The Primary 
Descriptor Root Node would point to a Sub-Node for A\B\C which requires 
a Record Sub-Node. It points to another Sub-Node for component D of 
record A\B\C. This component is an array and requires an wit Sub- 

e. The next node is the Sub-Node for the orrey element A\B\C.0(2). 
This element is of a pointer type. The next Sub-Node is a node for 
the pointed-to sbject which happens to be a record and therefore calls 
for a Record Sub-Node. wnat ire the Last Sub-Node on the chain is for 
component — of that record. The type of Sub-Node required depends on 

or 


the data type of E, but would be a 
other than arrays and records. 


mal Sub-Node for all data types 
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! 
i 
i 
i 
i 
] 
i 
i 
‘ 


! Define the declaration macro. Note that the — Descriptor also has the 
7 


! Value Descriptor fields defined. This is to simpli 


onc uwrF wn = Oo 


DBGSW_PRIM_OFFSET = ({ 4, SwO_J,! Offset within data item 
DBGSW_PRIM_LENGTH =({ 4, Wi__J, ! Length of partial reference 
DBGSA_PRIM_FLINK = 2° A. ]. ! Address of Sub-Node list head in root 
GSL_PRIM_FLINK * -lid. ! Forward Link to first Sub-Node 
DBGSL_PRIM_BLINK = $. L ! Backward Link to last Sub-Node 
DBG$B"PRIM_SCOPE_STATE= > BO__5, § Scope state (see next field) 
PesetaPRIR_SCOPE =(€8, Lt.) ! Scope where symbol was looked up 


PRIMARY DESCRIPTOR ROOT NODE 


A py saery Descriptor consists of a Root Node ros \qued by a doubly 
Linked List of Sub-Nodes which describe the individual components 
of the symbol Senge voce by the Primary Descriptor. The format of 
the Primary Descriptor Root Node is as follows: 


PESESSSS SAO SIESOSECSELT ESE —— 
See ee eS oa eee 


{ SB_DHDR_LANG | SB_DHDR_TYPE | DBGS$W_DHDR_LENGTH 


| SB_DHDR_KIND { SB_DHDR_FCODE | DBGSW_DHDR_FLAGS ' 


Geeweoeoeeoocoeoooooes}¢ — eeeee ob 


' DBGSL_DHDR_TYPEID ' 


Fee oeeeeeeee cece see seeeeeseoeeeeeeseseeeoeseeeseeeeseeesessosesecan ob 


i DBGS$L_DHDR_SYMIDO ' 


DBGSW_PRIM_LENGTH DBGSW_PRIM_OFFSET 


Ne ee ees eeeeoeoeoe om aeoae + 


DBGSL_PRIM_FLINK 


Peer meena nreroeannmaneenrerennewawraweacae eeeoeoee Pee ee sk eo hee See ee + 


H DBGSL_PRIM_BLINK ' 


desea nna m= econ eweacaae Se eeeoeoee@ ee eee er ewe eee se eee ww 


: Unused 


ese ne sce snare nwswenee @eewewace eee — wre eee eS —— — — — — 


DBGSL_PRIM_SCOPE 


oa wae ee nanan oem eer esesrecooe = wane aon e nase an eos eecae — eee sean + 


+--+ 
i 
mn 
o 
oO 
wv 
m 
te 
wo 
“— 
> 
~« 
m 


A pointer to a Primary Descriptor Root Node is declared as follows: 


PRIMPTR: REF DBGSPRIMARY 


Define the fields of the language-independent Primary Descriptor Root Node. 
IELD DBGSPRIM_FIELDS = 
SET 


F 
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the declarations in 
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! those routines which can accept either a Primary Descriptor or a Value 
H Descriptor as input. 


CRO 
DBGSPRIMARY = BLOCK [ Lowe? 
FIELD (DBG DHDR_FIELDS, DBGSPRIM_FIELDS, DBGSVALUE_FIELDS) %; 
: Define the size in longwords of the Primary Descriptor Root Node. 


LITERAL 
DBGSK_PRIMARY_SIZE = 9; ! Size of Root Node in Longwords 
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wf wan =—- ©o 


PRIMARY DESCRIPTOR NORMAL SUB-NODE 


Primary ey Seogs toter Ske tise attached to the Primary Descriptor 
oper ked. { st. The first Sub-Node 8*8* 

th these date ad. h the Primary Symbol (for example, A 

ne ct ay ) ~ — geeyr. des represent subsequent i hy (such 
as C wc ALL P 3* 8 eter Sub-Nodes include a 

ory hg res 14 —8* tion. wi i 8 f anes ggded for gertere 

specific pone Sub-Node"’ descr 

or all “hornet aA. 4 mean mp ots — for wish no specific 

primer Descriptor Sub-Node has been defi below $ Sub-Node 

has only t common core’’ fields and no wo BM fields: 


PEUESSSCSSLOEOOSOSESSELT ESE —— 
— mmm www ewww www ewww ewww ww ewe wen eee ee ewww wenn ene nec en een enn ny 


H DBGSL_PNODE _FLINK ' 


98900888088 0808584ESSESS80CSCTOSCOOTESCOSCOOOCOOCOCSSS Seeeoeeeeoneaeane + 


H DBGSL_PNODE _BLINK ' 


— — — ———2ö—- Few ee eee ee mn} 


: Unused 'SB_PNODE_FLAGS !$B8_PNODE_FCODE : $B_PNODE_KIND : 


' DBGSL_PNODE _TYPEID ' 


— — — 22 — 4 


DBGSL_PNODE _SYMID i 


Geocoseoescocoessesssusswoesesooossseesoessooeseee eeeoeoe See ow ew oo 


H DBGSL_PNODE_RELOC ' 


Sewooseseoceseosesoeseseeeeesseesonseeoeeseooso eeecee Seeman eww eon d 


A pointer to a Primary Descriptor Sub-Node is declared as follows: 
PNODEPTR: REF DBGSPRIM_NODE 


i The following are the meanings of the fields in the Normal Sub-Node. 


DBGS$B_PNODE _KIND —* May be 2"5 RST kind a OC — it usually 
s RSTSK_DATA or RSTS 
DBGS$B_PNODE _F CODE oo of be ony FCODE other than those for which 
descr bed ponery Descriptor Sub-Nodes are 
escr 
DBGSL_PNODE_TYPEID — The T ype ID for the object's 
DBGSL"PNODE-SYMID == The SYMID for the ob ++ a I Pf ield may 
be zero, as it is for an array element or 
@ pointed-to element. 


DBGS$L_PNODE_RELOC -- A ‘relocation constant’ for the address. 
This is geractly zero, but can contain 
a user address (in the case of og 
references) or a byte offset (for s rings) 


a 
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Define the size of the Primary Descriptor Normal Sub-Node. 


LITERAL 

DBGSK_PRIM_SIZE_NORMAL = 6; ! Size of Normal Sub-Node in Longwords 
! Define the fields of the Primary Descriptor Sub-Node. Also define the 
declaration macro. 


FIELD DOGSFNODE _f IELDS = 


GSL_PNODE_FLINK = 9. * 4 ! Link ee following primary sub-node 
DBGSL_PNODE BLINK = el ; soe © Pr qegntng er er jaery sub-node 

G$B_PNODE_-KIND = , BO. M. The rst "k this component 

GSB_PNODE_FCODE = - Ol. J! FCODE. for this component 
DBGSB_PNODE _FLAGS = ° Be. : Flags ayee 
DBGSV“PNODE-EVAL = 2, v2-(05 3, |! Eva uate — dot 

! qual ication, or dereferencing 
1 — operation on this component | 
DBGSV_PNARR_COLUMN = - V2.41) J, ! Set if array in ‘column major’ order 
DBGSV_PNARR_BITREF = V ~{¢ » | Set if this is a BIT ervey 
DBGSV_PNARR_RANGE = - V2.(3) J, ! Set if ereey has subecrie ranges 
DBGSV_PNVAR_VALID = - V2 (4) ! Set if Tag has been validated 
DBGSV“PNODE_IGNORE = [ 2, 92_(5)4.! seve to BBs SYMID in address 
DBGSL_PNODE_TYPEID = ( 3, L_ J, i TYPEID™ for this component 
DBGSL_PNODE“SYMID =( 4, L- J, ! Generic SYMID for this component 
DBGSL-PNODE-RELOC = [( 5, L- J, ! Address relocation factor 
DBGSW_PNREC_INDEX = f 6, WO_ 4° Record Component Index 
DBGSWIPNREC-NCOMPS = [C 6, Wi_ J,! Number of components in record 
DBGSW_ pene. INDEX = ( 6, WO. J,! Variant yenpenem Index 
DBGSW"PNVAR_NCOMPS = * Wi_ J,! Number components in variant 
DBGSL_PNVAR_TAGID = o tL. J.) SYMID of tag variable (or 0) 
DBGSL-PNVAR_COMPLST= C 8, L- J, ! Pointer to list of record components 
: in this record variant 
DBGSL_PNVAR_DSTPTR = [ 9, L_ J, ! Pointer to Variant Value DST Record 
: for this record variant 


DBGSB_PNARR_SCALE = ( 6, B0_ J,! Decimal scale factor for array element 
DBGS$B_PNARR_DIGITS = 6. B1_ J,! Decimal digits for array element or 0 
SB_PNARR_DTYPE = ° Be. o! DTYPE of a" array olenent 
DBGSB_PNARR_DIMCNT = g. B35. J.! r of array dimensions 
GSW_PNARR_LENGTH = ° He -! Length of each array element 
— = qe . “3 J we t of of or tues ° bs ripts of PB iee. 
PNAR = sh. ont set to —22 ene 
Fs ! byte depending on bither flag) 
DBGSL_PNARR ofELL TWP ESE . t. }: : ype ement data type 
DBGSA_PNARR_SVECTOR= [10, A_ ! 8 CKVECTOR of Subscripts 


MACRO 
DBGSPRIM_NODE = BLOCK [,LONG) F IELD(DBGSPNODE_F IELDS)2; 


DBGLIB.REQ;1 


oo now F WN = CO 


PRIMARY DESCRIPTOR ARRAY SUB-NODE 


This Primary quapet — Sub-Node is used Fr errey types (i.e., 
for Primar omponents whose FCODE rray). 2 node 


my pon iy Information needed Later 2* the array type itself, 
ne Lugs ng the dimension count, all subscript types and bounds, etc. 
This is the format: 


PES OSESOCSOELESESSESE 


09876543210 


+ SPST Oe BF Se eK BES KP Se FF ® FSF fF f2G®ececeoes 2 = cere soe eoeneesenaeoeenwenaecreasnaas . 


' DBGSL_PNODE _FLINK ' 


+ Seeseooosossoesooesossoecnvesooocescoscoecoossoo Sn ewe ene 2 222 — + 


: DBGSL_PNODE _BL INK ' 


a Ce paca Eee —— — —— Soa 22 


Unused ‘SB_PNODE_FLAGS i$B_PNODE_FCODE | $B_PNODE_KIND } 


jnttinennentingetianneslaencent$eaenceslinananattnantionmantionnagh 


‘ DBGSL_PNODE_TYPEID ' 


Geooeecoeweseooesosessceeosssesocesoeoescoesecooao we amewrowrerererooe= * 


DBGSL_PNODE _SYMID ' 


—————-4 — 22 


DBGSL_PNODE _RELOC ' 


ye 


{$B_PNARR_DIMCNT!$B_PNARR_DTYPE ‘$B_PNARR_DIGITS!$B_PNARR_SCALE } 


—————— ——— ——— — ——— eo oe > 


{$B8_PNARR_SUBCNT: Unused ' DBGSW_PNARR_LENGTH : 


— — — —— — ——⏑ 


DBGSL_PNARR_OF FSET ' 


Geeoscoocossesoososessssscusseeceosooosesesooscecesco Seeeeoeeeaanene e 


: DBGSL_PNARR_CELLTYPE ' 


ö ——————————————————— — 2eee2ee Seeeeeeoeenoeoeononoeo wae ce h 


‘ DBGSA_PNARR_SVECTOR 


(Block-vector of subscript information) 


@ cocececcccecce 


‘ 
‘ 
4 
‘ 
‘ 
+ 
‘ 
‘ 
‘ 
' 
4 
‘ 
‘ 

+ 


⸗⸗⸗ —— — — See ee ee — — —— — ——— oo 


i The following are the meanings of the fields in the Array Type Sub-Node. 


_PNODE _KIND =~ Must be RSTSK_DATA or RSTSK_TYPCOMP. 
DBG$B_PNODE _F CODE =-- Must * RSTSK_TYPE_ARRAY 
SL_PNODE_TYPEID — The type ip ID for the array type. 
DBGSL — SYMID — The SYMID for the array (or zero). 


DBG$B_PNARR~ SCALE =~ The element scale factor or zero. 
DBGSB_PNARR_DIGITS — The element digit count or zero. 
DBG$B_PNARR_DTYPE “= The element VAX standard type code (if 


applicable) or zero. 
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DBGSB_PNARR_DIMCNT <== The number of array dimensions. 
DBGSB_PNARR_SUBCNT <= The number of actual subscripts supplied. 
In some Languages ats may be less than 
the number of array dimensions. 
DBGSB_PNARR_LENGTH <== The length of each array element. This 
T s in bytes except for DTYPEs 
V (bits) and P (packed ses gegt?. 
DBGSL_PNARR_OFFSET <== The offset to element ARRLO,0,...,0] 
from the start of the orrey 
DBGSL_PNARR_CELLTYPE == The Type ID of the array element type. 
DBGSA_PNARR_SVECTOR <= Start of the subscript block-vector. 


The block-vector of subscript information consists of a vector whose 
elements are blocks of the following format. There is once such block 
for each dimension in the array. 


PES ESSSSCACEOESSSOCSE USES ESESSE 


tere rm mm ere ce ee cet em emo en mom emen cme seme oem ene wate se meee meee wow} 


=e I 
i ER ne tne SO —— 
Eo ES aS ne 
a, RS A ee a nn a — 
4 | DBGSL_PNSUB_TYPEID i 


Fema ma moeme nea e eeeceoe Soe es neem ee Tene See BER SHEE SEO SES ESS meornes} 


Define the fields in the subscript information block-vector. 
IELD DBGSPNSUB_FIELDS = 
SET 


~ 


DBG$L_PNSUB_SVALUE = f 0, LL }- ! Subscript Value 
DBGSL_PNSUB_STRIDE = [ 1, L_ J, ! Subscript Stride (bit or byte 

: depending on BITREF flag) 
DBGS$L_PNSUB_LBOUND = z: L J. ! Subscript Lower Bound 
DBG$L_PNSUB_UBOUND = - L. J. ! Subscript Lower Bound 
DBGSL_PNSUB_TYPEID = C 4, L_ ! Subscript types Type 1D. If the 

; subscript type is lLongword 
res : integer, this field is zero. 


MACRO 
DBGSPRIM_NODE_SUBS = BLOCKVECTORC,5,LONG) FIELD(DBGSPNSUB_FIELDS) 2; 


Define the size of the Primary Descriptor Array Sub-Node. 
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LITERAL 

An⸗ ARRAY = 10, ! Size of fixed pers in longwords 

~SIZE_SUBS = 5; ! Size of variable pert per subscript, 
: also in longwords 


,] 
i 
i 
i 
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ow F WH =| SO 
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PRIMARY DESCRIPTOR RECORD SUB-NODE 


This Primary Descriptor Sub-Node is used for record types (i.e., for 
Primary Symbol components whose FCODE is Record). The only extra 
field in this sub-node is the record (or ‘’structure’’) component 
index which indicates which record component is selected from the 
defined components of this record type. 


RES OSESSCACEIESESSOSOLS OSE SESEE 


i DBGSL_PNODE _FLINK i 


pwr were em wanna cee eae Dae aS eS Teo sO ewe Beem ee eae} 


' DBGSL_PNODE _BLINK i 


tern ens ene ewe ese pe eres nee en ewe homme were oesne} 


H Unused iSB_PNODE_FLAGS {$B8_PNODE_FCODE | $B_PNODE_KIND } 


toe tet en wena meee een esentecasene weer ee eat 


H DBGSL_PNODE_TYPEID ' 


- woe memes ene ISV eH BET ees een owen xe eno nmoawn } 


: DBGSL_PNODE_SYMID i 


H DBGSL_PNODE _RELOC H 


Per wore wt ane wwe now mae DOO EE OBBwEU ETOCS DoO Sore onaeemanasnoaeansawoman + 


' DBGSW_PNREC_NCOMPS ' DBGSW_PNREC_INDEX ' 


ee eeeoeoeoe — omer eoraee sooo ae nero ma cenaoma ame + 


The following are the meanings of the fields in the Record Type Sub-Node. 


DBG$B_PNODE_KIND -- Must be RSTSK_DATA or RSTSK_TYPCOMP. 
DBGS$B_PNODE _F CODE -- Must be RSTSK_TYPE_RECORD. 
DBGSL_PNODE_TYPEID == The Type ID for the record type. 
DBGS$L_PNODE_SYMID =-- The SYMID for the record (or zero). 
DBGSW_PNREC_ INDEX =~ The index of the selected record component 
in the set of record components for this 
record type. This is meaningful only if 
the DBGSV_PNODE_EVAL is set--otherwise 
this field is always initialized to 1. 
DBGSW_PNREC_NCOMPS == The number of components in this record 


Define the size of the Primary Descriptor Record Sub-Node. 
ITERAL 


DBGSK_PRIM_SIZE_RECORD = 7; ! Size of Record Sub-Node in longwords 


2 Ee ——————— —— ————— — ——— —— 
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PRIMARY DESCRIPTOR VARIANT SUB-NODE 


This Primary Descriptor Sub-Node is used for variant types (i.e. 
for hy ag A ymbol components whose FCODE is variant). The extra 


fields in 


Ss sub-node indicate which is the currently eqtected 
component of the variant set (much as a record component is 


shown 


in the reser’ ser teeee the number of components, and the SYMID 


of the assoc 
other information. 


ted TAG variable (or zero if no TAG variable) and 


TOS EF ESE SETS oars lest doe ressszi0 


For rece wes ene eN - MTSE TSeeaanwaeae + 


oon eo uM F WwW NH | 0 


DBGSL_PNODE _FLINK i 


+ eeeeoe See SCT SHB SSeS Ses SH SSE STS Se SCSes SSS SSeUsseesmeoaanmaeasomaw st 


DBGSL_PNODE _BLINK i 


$toasreeeanc= omen e Poaceae ome ween santas san oes ewmane a fous en se mw e es enan} 


: Unused i$SB_PNODE_FLAGS ‘$B_PNODE_FCODE {| $B_PNODE_KIND } 


DBGSL_PNODE _TYPEID H 


Fw ew mem mm een emo w ee ene ewes ee cee ee eee eee eee Oe wee me we eee moet moemeen a} 


DBGSL_PNODE _SYMID ' 


fee ewer ees ee men — meee ete emcee oe eee OC roe mee wa wee em wBOGe Doe wewans seeae + 


DBGSL_PNODE _RELOC i 


DBGSW_PNVAR_NCOMPS DBGSW_PNVAR_INDEX 


422 — I em en een S I 4 


DBGSL_PNVAR_TAGID i 


fest eeneseweaww seeee@ SSS SSE SESE SE S222 22222202 4 


DBGSL_PNVAR_COMPLST i 


FPO OO Oe SOS M MOSH HOSS OHSS SS ——— eeeee + 


DBGSL_PNVAR_DSTPTR i 


weer wesc meme scen cee cease mscceaeance ene as eeeoeoeoeeo@ SSO Dawe eae eH a eo $ 


The following are the meanings of the fields in the VARIANT Type Sub-Node. 


DBG 1D 
DBGSL ~PNODE~SYMID 
DBGSW~PNVAR~ INDEX 


DBGSW_PNVAR_NCOMPS 
DBGSL~PNVAR”TAGID 
DBGSL~PNVAR~COMPLST 


DBGS$L_PNVAR_DSTPTR 


Must be RSTSK_VARIANT. 

Must be RSTSK_TYPE_VARIANT. 

The Type ID for the variant type. 

Always Zero. 

The index of the selected component from 
the set of components for this variant. 
This field is always initialized to 1. 
The number of components in this variant. 
The SYMID of the TAG variable (or zero) 
Pointer to the list of record components 
in this record variant. 

Pointer to the Variant Value DST Record 
for this record variant. 
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1 
Define the size of the Primary Descriptor Variant Sub-Node. 


LITERAL 
DBGSK_PRIM_SIZE_VARIANT = 10; ! Size of Variant Sub-Node in Longwords 


— 


DBGLIB.REQ;1 16-SEP-1984 16:48:55.3 Page 101 


- & 


o 


PRIMARY PARSER STATE TABLE 


The age Parser (DBGSPRIMARY_PARSER) operates off a Finite-State 
Machine (FSM) state table which defines the allowed formats of Primary 
Symbols in the current language. A ec jaery Symbol consists of a symbol 
name which may include pathname qualification, data qyet ht ication. 
subscripting, Gore torgne IMB. and possibly other gust ficagign depending 
on the language. In PASCAL, for example, M\R\A.6(2,3)*.C(4).D is a 
valid Primary Symbol. The operators in a Primary Symbol may include 
ss. 0 , and so on. caaetty which operators are allowed 
and in which order * are allowed is language-dependent, and this is 
what is specified by the Primary Parser State Table. Each state in the 
state table is represented by zero or more Primary Parser State Table 
Transition Entries, each of which specifies a transition to be taken 

if the current es is the one specified in the transition entry. 
The format of a Primary Parser State Table Entry is as follows: 


332 PeecaaceeiPalraviLnT 
109 j s 6 g 4 g 21 5 98765432109876543210 
Foose Seeeeoneoeoaneon Seeeeoeoeoeoeeneo Se eeeoeonoeoneo@ — rere e nen eer erenz nae as=e ae 


First Primary Parser State Table Transition Entry 


+ 
Additional State Table Transition Entries 
+ 


+ <= $ ewww ne oe + 


: Longword with value zero (0) 


Poesseemasemea Seeaecronescnweee nen won ecnnmoecenance weer nome eaannes oe mor a 


—2 suse tout Primary Parser State Table Transition Entry has this 
ormat: 


33222222 SPeLratyvetvizaT 
1098 6 6 3 4 g 5 1 ; 98765432109876543210 
¢eowoocnm moe eeeoee Seeeeeooeeooeoee@ eeeee 


+ + + 
' PRIMARYSW_NEXTSTATE Hl $B_ACTION { $B_OPCODE H 


$oeneseceeceeeeenscoesesseeseo see eeeoe SSeS e222 Ff — 2 eoeeneoneaea 


The whole Primary Parser State Table for a banguage simply consists of 
a@ sequence of concatenated State Table Entries, with one ory per 
state in the Finite-State Machine. The whole state table is th 
vector of transition entries and is indexed as such. Element zero of 
the state table is the beginning of the state table's Start State, and 
each transition'’s next state po nter (PRIMARYSW_NEXT_STATE) is a state 
—2* * which points to the beginning of thé next state's state 
able entry. 


A pointer to a Primary Parser State Table is declared as follows: 


DBGLIB.REQ; 1 


' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
£ 


as .PRIMARY_TABLEC.STATE_INDEX 
Transition Entry. 


define the declaration macro. 
IELD PRIMARYSFLD_DEF = 


PRIMARYSB_OPCODE = C 0, 80_ J, 
PRIMARYSB_ACTION = C 0, B1_ ), 


— setting 0, wi, 


Define the fields in the Primary parser 
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PRIMARY TABLE: REF PRIMARYSTABLE 


This ore cares PRIMARY _TABLE to By FA ee —— which is rerecences 
eld-name 
vector index oetakian to the current Primary Parser State Table 


where STATE_INDEX is the 


State Table Transition Entry. Also 


! Operator code which activates this 
state transition 

i CASE index for sonene te action to be 
taken during state transition 


] | Index of next state after transition 


MACRO 
PRIMARYSTABLE = BLOCKVECTORC,1,LONG) FIELD(PRIMARYSFLD_DEF) %; 
! Define the allowed values of the PRIMARYSB_ACTION field. These values are 
! CASE indeces which select the semantic action routine to be executed for 
each state transition. 
LITERAL 
PRIMARYSK_MIN_ACTI = 1, ! === Minimum action index 
PRIMARYSK_ACT_START_GBL = 1, ! Global scope backslash found 
PRIMARYSK_ACT_GBL_TERM = ¢° ! Terminator after global symbol 
PRIMARYSK_ACT_START_SLASH = 3, ! Backslash after first operand 
PRIMARYSK_ACT_START_DOT = 4, | Dot Gyo ification after first operand 
IMARYSK_ACT_START_DOT_PLI = 5, ! * in PL/I 
PRIMARYSK_ACT_START_DOT_COB = 6, ! “in C68 9001, 
PRIMARYSK_ACT_START_SUBSCR = 7, ! Subscripting after first operand 
IMARYSK_ACT_START_SUBSCR_BLI = 8, ! Bliss subscript 
PRIMARYS$K_ACT_START_SUBSCR_PLI = 9, ! PL/I subs eript 
PRIMARYS$K_ACT_START_DEREF = 10, ! past Ah, dereference 7 
PRIMARYSK_ACT_START_DEREF_PLI = 11, ! PL/I “=>"* operato 
PRI VER ACT STA T~TERM = 12, ! Terminator after first operand 
——— -ACT_START_BIF_CALL = 13, ! Built-in function call 
MARYSK_ACT-START_TICR = 48, ! Ada tick operator 
PRIMARYSK_ACT_SLASH_SLASH = 14, ! Backslash after previous beckslash 
IMARYSK_ACT~SLASH_INVOCNUM = 15, ! Invocation Number in pathna 
PRIMARYS$K_ACT_SLASH_DOT = 18. ; pot qualification after backslash 
PRIMARYS$K_ACT-SLASH_DOT_PLI = 17, ! “in Pt 
PRIMARYS$K_ACT~ SLASH SUBSCR = 18. : Subser pting after backslash 
PRIMARYSK_ACT_SLASH_SUBSCR_PLI = 19, ! PL/I 
PRIMARYSK_ACT_SLASH_SUBSCR_BLI = 20, ! Bliss subscript after backslash 
PRIMARYSK_ACT_SLA EREF = 21, : PASCAL * after backslash 
PRIMARYS$K_ACT-SLASH_ peaer _PLI = ¢° ! PL/I ‘=>"' operator after 
PRIMARYSK_ACT-SLASH_TERM = 25, ! Terminator operator after backslash 


DBGLIB.REQ;1 


PRIMARYSK_ACT_SLASH_TICK 


PRIMARYSK ~Att 3 “bor COB 
depth ACT. 


wv 
= 
~ 
> 
DBDDDDDD®D 
ea re KK 
> 
o 
_~ 

’ 


PRIMARYSK “ACI-BOT“DERE 
PRIMARYS$K-ACT DOT TERM. PL 
PRIMARYS$K-ACT-DOT-TERM 
PRIMARYSK-ACT DOT Tick” 


PRIMARYSK_ACT_SUBSCR 


DOT 
PRIMARYSK_ACT-SUBSCR_DOT _PLI 


PRIMARYS$K_ACT_SUBSCR_DEREF 


PRIMARYSK_ACT_SUBSCR_TERM_PLI 


—— ~ACT_DEREF _DOT 
PRIMARYSK_ACT_DEREF_SUBSCR 

PRIMARYS$K_ACT_DEREF _DEREF 

PRIMARYSK_ACT_DEREF _ TERM 


PRIMARYSK_MAX_ACTION 


~ 
o 
_ 


unnnnnnnnnnnn 
eeseeeeeeee eens 
— 


— UBSCR 
PRIMARYSK_ACT-SUBSCR_SUBSCR_PLI 


nnnnnnun 
ses es ese ees 
emer mem mrmsacmce 


SEE FELL VNnononononony 


NOV WM OOONGA OMEWN-"OVOOVNOus 


o 
ee 
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Ada tick operator 


of B\C i peg re 
pot “qual iticat on after previous dot 


oe et 
stacy after dot qualification 


ee in C 

PASCAL ® after dot 

PL/I “'=>"" operator after 

joratnater operator after dot qualif. 
n 


** in COBOL 
Ada tick operator 


pot R— after subscripting 
n 
Gece ios ing after subscripting 


PASCAL * after (J) 
PLI ‘‘=>°' operator after subscript 
aw a operator after — 


Dot after dereferencing 
Subscripting after dereterencing 
Sa ah after dereferencing 
Terminator after dereferencin 


--- Maximum action index 
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PRINT INFORMATION TABLE 


The Print Information Table is a blockvector indexed by FCODE 
which gives pointers to tables and print routine indexes necessary 


1 
i 
1 
i 
: 
: to print primary symbols for a given language. 
i 
i 3 222 1711171111111 
: 1 3 § A 5 6 g 4 a : ¢ 98765432109876543210 
i 
0 ; PRTINFOSL_ROUT_INDEX : 
8 PRTINFOSL_CHARTBL ! 
‘ oe ů ooo coo eeococcooccce - 
1 
i 
; A pointer to an Print Information Table is declared as follows: 
; PRINT_INFO_TABLE: REF PRTINFOSTABLE 
i 
i 
i Define the fields of the Print Information Table entry. Also define the 
: declaration macro. 
FIELD PRIINFOSFLD_DEF = 

PRTINFOSL_ROUT_ INDEX = f  &.. oe 

PRT INFOSL CHARTEL 2 Se ee 


CRO 
PRTINFOSTABLE = BLOCKVECTORCRSTSK_TYPE_MAXIMUM + 1, 2, LONG] 
FIELD(CPRTINFOSFLD_DEF) 2; 


: Define valid PRTINFOSL_ROUT_INDEX Literals. 
LITERAL 


PRTSK_MIN_ROUT = 0, 
PRTSK-OTHER = 0; 
PRTSK~ARRAY “3 
PRTSK-POINTER = ¢ 
PRTS$K—~RECORD 2 3, 
PRTSK~RECORD_COB s 4, 
PRTSK-POINTER_C = 5, 
PRTSK-RECORD C_PLI = §, 

TSK" VARIANT = 7. 
PRTSK~MAX_ROUT = 7: 


: Define valid Print Character Table Indexes. 
LITERAL 


DBGLIB.REQ;1 


PRTSK 8 GIN_CHAR 
PRTSK_SEPARATOR_CHAR 


PRISK Abe CHAR 


PRTSK_MAX_PRTCHAR 


fwno 
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REGISTER DESCRIPTORS 


B Resistor Descriptor is used t9 ing re he ee address of a 
register or of a byte ** with *9 ster. By _ ains 
; register number, a byte offset w + n that —5 

are the only possible values), and a scope number which 4 ind 
to which call frame in the call i th * register belongs. 
descriptor also contains a ‘‘sentinel”’ value w used for valid- 
ity checking and for ensuring that a Register Descriptor always has 
@ non-zero value. 


ong *eter Se Descriptors are built by — A atts 22 TO_REGDESCR 

are later used for various pur pose regis ters aré examined. 
They ere also required by re routine —XRX "REGIS ER_NAME which generates 
the register name for printing. 


A Register Descriptor fits in a single longword. This is the format: 


RET OSSSSOCACEIOSUSSOSOLSES SESE 


——— ———— — — ——4 


DBG$W_REGD_SCOPENUM 1$SB_REGD_REGNUM { _SENTINEL ‘OFF! 


—— ——— — — — — — — — — $eond 


A Register Descriptor is declared as follows: 
REGDESCR: DBGSREGDESCR 
i Define the fields of the Register Descriptor. Also define the declaration 
! macro. 
FIELD DBGSREGD_ FLD_DEF = 


‘ 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 

F 


SE 
DBGSV_REGD_OFFSET = « V.(0,2) ; ! Byte offset from start of ft rggister 
DBGS$V_REGD_ oSENTINEL = = - V.(2,6) J, ! Sentinel value--must be % 
DBG$B_REGD—REGNUM , BT_ i. i The actual register aA. 

. aX. ! The register's scope number 


pegsu. REGD- SCOPENUM = = 


MACRO 
DBGSREGDESCR = BLOCKL1,LONG) FIELD(DBGSREGD_FLD_DEF) 2%; 
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RUN-TIME SYMBOL TABLE DEFINITIONS 


This section contains all definitions related to the structure and con- 
tents of the Run-Time Symbol Table (RST) through which the Debugger 
accesses the Debug Syqeet Table (DST) in the user's executable image. 
The RST itself ; built and occessed 2 through the Symbol-Table 
Access Routines in modules RSTCNTRL and RSTACCESS. 

The RST is the structure through which the } 
at atime. This means that for each ‘‘act ye modu user's 
program, there is an RST data serui sure which describes that module 

and all lexical entities and data items in it. This structure, which 
is scattered through the oy od free memory, contains one entry for 
each lexical entity and data item in the module's DST. Each RST entry 
contains @ pointer to the corresponding DST entry so all the DST entry 
information can be accessed rapidly. In addition, the RST itself is 
hashed by symbol name so that a symbol’s RST and ösi entries can be loc- 
ated rapidly given the symbol name. 


DST is 11 one module 
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wv fF} wn = © 


RST ENTRY COMMON CORE 


ALL entries in the Run-Time Symbol Table have the same information in 
their first parts. This RST entry ‘common core’’ is described here: 


SES SSSSSPAOOTOSECSSSO OSES EELS 
4 


RSTSL_HASH_FLINK 


7 ee se reve eee ewer ee eee ee ee eee wea weoewmoewmoeewreowoeereweoerocre ee ast eeeocnmoecaoece + 


RSTSL_HASH_BLINK 


¢Gemecememme once oom ooe wom oeme wc we moe ero owe woe eroe cae (a ee ee em ee * 


RSTSL_SYMCHNPTR ' 


dew worm em es eee ee mete neem eo MeO w Oe ese Cree o ee} 


RSTSL_DSTPTR 


¢oeewmeetoooceeece swore wom eo ewe oc cco ec oe eee ow eae SP a Gm Ge am a em oe ae ot oe ee ee om me em a ee 


H RSTSL_UPSCOPEPTR ' 


: RSTSW_REF COUNT i Flag bits { RSTSB_KIND ; 


The hash chain forward and backward Links Link together all RST entries 
for symbols whose names have the same hash value. The hash chain is 
2 Linked so that RST entries can be removed from the hash chains 
when the whole RST for a module is removed to free up its space. Each 
hash chain has a permanent List head; RST entries in the RST Hash Table 
therefore never have zero hash Links. 


Some RST entries are not in the RST Hash Table, however. Such entries 
are ‘‘temporary’’ in the sense that they are created when needed and are 
thrown away when no longer referenced. Examples include many Data Type 
RST Entries and RST entries with invocation numbers. Such RST entries 
are put on the T rary RST Entry List. This is a singly Linked List 
which uses the RSTSL_HASH_FLINK field for the Links; RSTSL_HASH_BLINK 


is left zero in this case. 


ALL_RST entries for a given ule ore Linked together through the 
RSTSL_SYAMCHNPTR pointer in a singly Linked list. The jist starts at the 
Module RST Entry and is terminated by ? zero forward Link is list is 
eroversed en he Module’s whole RST is released to make room for an- 
other module. 


The RSTSL_DSTPTR pointer ives the address of the symbol's DST entry. 
The RSTSL_UPSCOPE TR pointer generally points to the RST entry of the 
symbol’s “containing’ entity. This usually means the conte nin 


g lexical 
entity, but for data record components it means the conta 


ning record. 


The RSTSB_KIND field identifies what kind of symbol and what kind of RST 
entry this is. The poss tobe values are listed at the end of this sec- 
tion. The RSTSW_REFCOUNT fie 


ld contains a reference count which speci- 
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fies how many references (pointers) £9 this RST entry have been assed 
to the rest of the Debugger. When this count is non-zero, this RST en- 
try cannot be released ? free storage. The reference count is thus 
used to prevent a ‘‘dangling pointer’ problem. 

A pointer to a Run-Time Symbol Table Entry is declared as follows: 


RSTPTR: REF RSTSENTRY 


This declaration macro collects peer all the individual FIELD sets 
declared below for the various kinds of RST entries. 


CRO 


RSTSENTRY = BLOCKC,LONG) FIELD(RSTSFLD_CORE ,RSTSFLD_MOD,RSTSFLD_LEX,RSTSFLD_DATA) %; 


: These are the RST entry common core field definitions. 
FIELD RSTSFLD_CORE = 
SET 


RSTSL_HASH_FLINK = (0, L. J, ! Symbol name hash chain forward Link 
RSTSL_HASH BLINK = [ 1, L_ J, ! Symbol name hash chain backward Link 
RSTSL-SYMCANPTR =(€ 2, 1- J, ! Pointer to the next RST entry belong- 
: to the same module as this one 
RSTSL_DSTPTR = f wh. J; ! Pointer to this gyabal s DST entry 
RSTSL_UPSCOPEPTR = [ 4, L_ J, ! Pointer to the RST entry one level up 
: n scope from this one 
RSTSB_KIND =({ 5, 80. 3 ! The kind of RST entry this is 
RST$V~GLOBAL * — vi-¢ i. Flag set if this is a global symbol 
RSTSV_NONZLENGTH = - VIL) J Flag set to rave 44 s symbol has a 
! on-zero len 
RSTSV_INVOCNUM = f a. V1 ~($)2-; Flag set if X has invocation num. 
RSTSV_SET_TYPEPTR= C 5, V1_(3)],! Flag set to indicate that the Data RST 
ntry gp th FOL «4, field should 
n 


E 
: be set during RST build. 
RSTSV_MARKBIT = ( 5, v1_(4)],! Mark bit available for temporary use 

: squek as stopping recursion) 
RST$SV_COBOLGBL = C 5, V1_(5)],! Flag bit set to indicate this symbol 

: has the COBOL ‘global’ attribute 
RSTSV_REGISTER = f 5, V1 ~(6)3.; Flag set if SYMID represents a register 
RSTSW_REFCOUNT =([ 5, Wi_ ! Reference count for storage management 


‘ 

— 

! The following are the possible values for the RST$B_KIND field. This field 

! specifies what kind of RST entry this is; it thus ifdicates both what kind of 
: symbol the RST entry represents and what the format of the RST entry is after 
: the “common core’ part. 


LITERAL 
RSTSK_INVALID = 0, Invalid code--cannot occur in RST en- 
try but can be returned by some 


Symbol Table Access routines 
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RSTSK_NOTUNIQUE = 9, 


' 
‘ 
RSTSK_MODULE = 1, i 
RSTSK-ROUTINE = 2, i 
RSTS$K-~BLOCK = 3, i 
RSTSK-ENTRY = 8: i 
RSTSK—LABEL = 4; i 
RSTSK-LINE = 5, i 
RSTSK-DATA =6 i 
RSTSK-TYPCOMP = 16, i 
RSTSK-TYPE =7 i 
RSTSK-VARIANT = 11, i 
RSTSK—INVOC = 1g. i 
RSTSK-OVERLOAD = 13, i 
RSTSK-KIND_MINIMUM = RSTSK_INVALID 
RSTSK-KIND-MAXIMUM = RSTSK~OVERLOA 
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— —* eS — occur in oy 
Sra n be returned by the 
bas TA — routine. 
Module RST ent 


Entry Point east entry 
Label RST ent cy 

Line number RST entry 
pore item RST entry 


| Miniaum possible kind value 
!' Maximum possible kind value 
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oone ww Ff WN = SO 


o_o = = 
wn — © 
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RST ENTRY FOR A MODULE 


A module is — — by, @ Module RST Entry at all times, whether the 
n the — or not. s Module 5*3 then points 
to a Linked List of RST entries for the gr aatining —5 n the module 
via the RSTSL "SYMCHNPTR pointer; the one My indicated by a 
sete pointer. The RSTSL UPSCOPEPTR poi ner ~ ye used as an up-scope 
poin @ Module Entr yrcthere | : nothing up=scope from a module. In- 
— *RSTSL. ce, a we ee occupies the same location in the RST entry 
— RSTSL_UPSCOPEPTR, is used q te! Link 7 Ll Module RST Entries in the whole 
ram tnto a singly Linked List. s list is scanned during RST ini- 
Pia ization and when processing the tHoe MODULES command. 


PEUESSOSSLORTOSOSESSELTESETETE 
4224 


RSTSL_HASH_FLINK i 


Powwmwmewewwwwewweeeewowoeowe score seeeeeeeseweccococcecocccecces} 


: RSTSL_HASH_BLINK ' 


S — 
Sesh ee — 
——— athena 
Ree Raa ek 
RAR ST SS 
A 


' RSTSL_MODRSTS1Z ' 


——————————— —----4 


RSTSL_MODSRCTBL 


Fn Sy Se ee ee oe ¢ ecw nmoecenes eeeoee 
‘ Unused iRSTSB_ LANGUAGE H Flag bits 


o- > oe eee 


: RSTSL_MODPCTBL 


————————664 


RSTSL_BASEVA i 


: Unused + SB_IMGFILCHAN } 


The RSTSL_MODPCTBL field goints to a table of pointers to the PC-Corre- 
lation Table DST records for this 92 (used for PC to Line number 
correlation —X yi ce versa). The first cell of this table (namely 
MOD_P * ves the number a P=torrelat ion ‘abe Fy cr cords in 
the “nodule! $ ps! (end th $ remaining cells (i.e., MOD_PC_TBLC1 through 
MOD_PC_TBLC.MOD_PC_TBLC0J}) contain pointers to thosé St records. Each 
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= & 


cell is one longword. If there are no yore teeta Table DST records 
for a given module, the RSTSL -MODPCTBL field is zero. 


PC-Correlation Table DST records need not have any special order o 
nesting with respect to the DST records for routines and lexical Blocks 
end are —82* * ewed as belonging to the module as a whole. 

Bary ete s for a module are scanned ook *34 be in” the 
order - ed Pointers in the RSTSL_MODPCTBL le. The addresses 
given by Fh Eger cee et ian Table DST records are relative. + the value 
of the STSL PET BASE field. which contains the address of the lowest 
address routine in” the module. 


The RSTSL_MODSRCTBL field 5* to a table of poingers to the seuree 

Line Correlation shite R r#635 ds for this module. irst cell of this 

) coneins phe number of Source Line Correla- 
Records 1248 modul T and cba remaining cells (i.e., 

mopecrs Tau! +o Baa mOBSRe ToL “RODSRCTBLE JJ) contain pointers to those 

DST records. Each cell in the table is a lonqword. If there are no 

such Dst et at all, the RSTSL “MODSRCTBL ield is zero. 


The memory blocks pointed to by RSTSL_MODPCTBL and RSTSL_MODSCRTBL both 
have the following format: 


33222222 2211111111141 
1098 : 6 é 4 5 5 1 § 98765432109876543210 
22 — ——— —— ———— + 


H Number of such DST records for module } 


¢oeemocewmoecoe seco emcee emcee comme meow eo ee one oe esSeeeoeee Serese eee secon eon an + 


Pointers to module's PC-Correlation Table DST Records 


—— —— eeeeoee werner 


or Source Line Correlation DST Records 
+ 


When registers are examined using a —— cick, which egos not corre- 
spond to a routine in the RST, ad Me 

represent that is ope. In such an RST e ~ A -_the RST addition. Ott is 
set to distingu t from other Module RST Ent ries. In 

scope number (the number of call frames from the of the call Sesee) 
of the desired scope is stored a the asTst, MODSCPN field. Ri. field 
overlays the RSTSLAo MODRST (sh f Tigl d, wat ch is not needed in H case, 
The name of such a ''modul = the scope number n dec 8011. 
These special Module RST wt FE, are built Y the GET_REG STER  Staib 
rout ing and are recognized by the —XRWB SETCONTEXT Foutine, Both in 


This set of field declarations includes all fields outside the RST common core 


—_ 
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: used in the Module RST Entry. 
FIELD RSTSFLD _MOD = 


RSTSL -NXTMODPTR = = fe: 4, 
RSTSL-SAT_PTR 


RSTSL_PCTBL_BASE= C 7, 
RSTSL_MODRSTSIZ = C 8, 


RSTSL_MODSCPNUM = C 8, 
RSTSL_MODSRCTBL = C 9, 


RSTSL_BASEVA = f 3 
RSTS$B_IMGF ILCHAN= 


TES; 


LITERAL 
RST$K_MODENTSIZ = 1 


RStBV- 83 RST= f 19” v 
RSTSV~ANONMODB : 10, 
RSTSV_MODNUMSCP = [ 10, 
RST$V_SHARE_IMAGE=C 10, 
RST$V_OLDPLIFLAG= C 10, 
RST$B_LANGUAGE = [ 10, 
RSTSL-MODPCTBL = ([ 11, 


v.03) J, 
v.(4) 1, 
v.(5) J, 


B1 


-.J 
J 


2 
RST$K~SHARED_MODENTSIZ = 14; 
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Pointer to the next Module RST Entry 
Pointer to this module's Static 
Address Table (SAT) 
The * ederese for the offsets given 
by the PC Correlation 25 
The total size in bytes of the RS 
for this te my only by the 
SHOW MODULE sone 
The gas number if the MODNUMSCP bit 
ribed below is set 
Pointer to table of pointers to the 
module's Source Line Correlation 
DST Records (or zero) 
Flag indicating this module is SET 
Flag indicating module is in the RST 
Flag indicating this is the ‘‘anonymous 
ape ao. all unclaimed 
oba 
indi ooh iy that this is a special 
T entry for a numbered scope 
Flag Tngieating that this is a shared 


Flag —BB this is a PL/I module 
compiled with an old compiler 
which generates —— VAX 
standard ren descriptors 

The tanguage of this module 

Pointer to a table of pointers to the 
module's PC-Correlation Table 
DST records (or zero). 

The base address of a shared image 

The executable shares image file 
channel number 


: Define a symbolic name for the size of the Module RST Entry in Longwords. 


Size of Module RST Ent 
Size of Shared Image Module RST 
Entry 


— — — ·— ·—————— — — — — — —— —— —— — — — 
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RST ENTRY FOR A ROUTINE 


The RST entry for a routine has the format shown here. Each Routine RST 
Entry has an up=-scope pointer (RSTSL_UPSCOPEPTR) which points to the RST 
af for the containing lexical entity. That can be a module, a lexi- 
cal block, or another routine. The start and end addresses of the rout- 
ine's code are also given in the RST entry. There is also a Static 

Address Table (SAT) pointer which points to the SAT *1 for this rout- 

ine, and there is a Static Link pointer which points to the routine's 
Static Link DST record (or is zero). The routine breakpoint address is 
also kept_in the RST Entry--this address may be set from a Prolog DST 
Record. The Routine RST Entry is always built when the RST for a 
module is built. 


RES SSSSS CRORE USCS CSET ES ESSE 


RSTSL_HASH_FLINK 


toe eseeoece ewe Eee Moe TK MOF Meee enone cee mews ee ee aoe ce we em + 


RSTSL_HASH_BLINK 


one re= ee ee em oe a ee fm es ee ee an oe ee a mw ee See ee ow a en eens ema wm oma ww me + 


H RSTSL_DSTPTR i 


Ge me eo ee SOD me OO eo Soc OTe eer eae eee wees om eee eerwoew een eceoe + 


' RSTSL_UPSCOPEPTR 


— ew eww e moe eos en ween eee oc nen —224222 (Some ee ay oe es Se ef omae nome anew mame 


RST$W_REF COUNT ! Flag bits { RSTSB_KIND } | 


fener ere reese eee ewer seccee ee ne a fm —— — es 


‘ RSTSL_STARTADDR ' 


} «= 


‘ RSTSL_RTNSATPTR 


| 
gf wwe emer ewe SHS RSC SOM Be nee ose owe Stee eee — rom oes sw ee ese nee + ) 
| 
| 


RSTSL_STATIC_LINK 


Foe meneame nama cer ne — me eo ete ee ù— Sem ee cae ae Ow ee ee ee ne me + 


RSTSL_BREAKADDR ' 


Peer wee Ewe ne enone nee erase wes See eee os — 


oon eo WH = SO 


— 
So 


This set of field declarations includes the fields outside the RST common core 
used in the Routine, Lexical Block, Entry Point, Label, and Line Number RST | 
Entries. The individual illustrations show which RST entries use which fields. 
IELD RSTSFLD_LEX = 

SET 


RSTSL_STARTADDR = ; L 


— — — — — — — — — — — — — — — — — — — — — — — — — — — — — ee ee ee ee ee ee 


! Lexical entity start address 
' Lexical entity end address 
} Address of reefing’ By: entr 


RST$L_ENDADDR = 
K ! Address of Static Link DST record or 0 


RSTSL_RTNSATPTR 
RSTSL-STATIC_LINK 


a 
ty ee & 
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RSTSL_BREAKADDR = ( 10, L_ J Rout 
i 
TES; 

! Define symbolic names for the Lengths of the 
: ALL Lengths are expressed in longwords. 


LITERAL 


RSTSK_ROUTENTSIZ = 11, ! Size 
RSTSK_LEXENTSIZ = 8 ! Size 
RSTSK-EPTENISIZ = 11, i Size 
RSTSK_LBLENTSIZ = 7, ! Size 
RSTSK_LINENTSIZ = 8; ! Size 
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ine breakpoint address (start 
address, start address + 2, or 
address from Prolog DST Record) 


lexical entity RST entries. 


f Routine RST — 

f Lexical Block RST Entry 

f Entry Point RST Grice 

: peg te Label RST Entry 


0 
° 
° 
0 
of Line Number RST Entry 
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RST ENTRY FOR A LEXICAL BLOCK 


The RST entry for a lexical block has the same format as that for a 
routine * the up=scope pointer points to the RST entry of the 
containing exical entity, and the start and end addresses of the 
block’s code are given fhe Lexical Block RST Entry is always built 
when the RST for the whole module is built. 


SES ESSSSSACETOSESSOSO LS ES ESET EL 


90 00066860 S SSS SSS SSS SSS SSSSSSSSSEVSSSSSSSSESESSESSOSESSOSESES + 


RSTSL_HASH_FLINK 


Fem ee eee ee CeCe See See SS SSeSeeeeeSeeeeseoseseoooooosaoooeses eeeceoe 24— 


RSTSL_HASH_BL INK 


bmw em mercer ore renew mene een ew nee meee eww ewan} 


RSTSL_SYMCHNPTR 


+ eeeoeoe www ert mee ee eee eee eee eet eee ew em eee ee meet eee eee eee cee ee oe ee @ + 


: RSTSL_DSTPTR ' 


tee remem nme mm ee eee em ee meee Se eR BHO ee MO MODEM ewe merce comme meee ad 


RSTSL_UPSCOPEPTR ' 


terme omen net ene mee em Oe mee Poon s (ee — + 
i RST$W_REF COUNT 1 __Flag bits} RSTSB_KIND 
RSTSL_STARTADDR i 
Fewer eer em oe eee om eae nee ec — Se — — — — ee Se RB em eee — > — ee ee — ee ee mm me ee — — — — 


nO Ww 0⏑ =| CO 
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oon co uw Fw HH =| SO 


— 
o 


RST ENTRY FOR AN ENTRY POINT 


The RST entry for an onery 
@ routine can be called) is 
ne Ses entry of the contain 


point (i.e., an alternate point cereus 
shows here. The up-scope pointer po 


she entry Point RST Entry is always built when the who 


PES ESESSOLCEVOSSCSOSOLT EST OSESE 
tewwewne ewww n weno n nen neee ie 


RSTSL_HASH_FLINK 


Freee eee eee eee ee eeeeeeeeeeeeeeeeeeeeseseoeeoeseoeeasaecosoaeooen 4 


‘ RSTSL_HASH_BLINK ' 


Fee eee ee Se Se eee SSeS SSeeSSeSSSSeeeSSseeSooosoossessncooooan — — — + 
RSTSL_SYMCHNPTR i 
Sew eeeeeee ee ee see eeeSeeeeeeeeeeeeeeeoeooooaoaooaosoonanen eeeeeaee — — — 


RSTSL_DSTPTR 


¢eeoeeeeeeeoeeeoeeeeeeeeeeeesoeeeeoeeeeeeeesesoeoeoeoeoeseseeeesessoeseca + 


} RSTSL_UPSCOPEPTR 


RST$W_REF COUNT ! Flag bits | RSTSB_KIND | 


$ee ewer eece cence ercaasce — — —— — — SN eee + 
H RSTSL_STARTADDR H 
¢eceee eeeeee ee SE Gs AE em me oe ee ew me OR Ts a ee ee ES em ce a ee ee Sm em ee 

: unused ' 
+ eo see — oe — el — — — eae ew ee Se eS eS Tae eS — — — — — — — — — — — — eawroere = + 
: unused ' 
+- eeeoeooee (Se a oe oe me we oe om ae Se S&S ow woe we SD on es eS eS eS ew ww — ee wow ee ee me + 
: unused ' 
¢roeeeccse See ren — — — ee eS ee te mw we cs ee Sse — — — — — — — — — — — — — — — — — — Smee eS me we + 


RSTSL_BREAKADDR 


pe we see wee acecc Peewee eee min Smemon seca ae ow SOM Se DO ae ME me + 
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ng lexical entity. An entry point has no 
endent extent and therefore its RST entry has — a start address. 
e module's RST is 
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cow FW NH | SO 


RST ENTRY FOR AN INSTRUCTION LABEL 


a RST entry, ror @ label (which Labels a point in the user's code) is 
own here. Axr⸗ ices, points to the RST entry of the con- 
n I a@ label does not have extent, there Li 


aah Sr eent e 
only a start address in the RST entry; no end address is ven. 


Label tt Entry is always Suite when the whole module's RST is built. 


PET SSSSSERCEIOESESSOSO LIES TOES SL 


Femme eoeeeeooeeeoeoeooeoooeeeeeeeeeeeeeeeeeeeocoeoocoeceooecoccca} 


: RSTSL_HASH_FLINK ' 


ů4 


RSTS$L_HASH_BLINK ' 


——— — — ——22 ———--64 


RSTSL_SYMCHNPTR ' 


———4 


RSTSL_DSTPTR ' 


et 


' RSTSL_UPSCOPEPTR ' 
: RSTSW_REF COUNT i Flag bits { RSTSB_KIND | 


ö—————— 2— + 
Geoeeeeecceoweseocoeweoeeesooocs}ooccceccecoecco $ucccecesce ome we + 


' RSTSL_STARTADDR 


Gocoseeweeoooeessesoossesessooseoooaesoce eeceee eons 
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no Vw FF WwW NH =| SO 


RST ENTRY FOR A LINE NUMBER 


The RST — for a Line_ number has the format shown here. The up-scope 
pointer points to the RST entry of the containing lexical 34 (always 
@ routine or a block). Both the start and the end acevese ¢ re Bien 
Line 2 RST Entries are not buil oe the whole modu 
» however; there are too —* Lines in a = opren to tele this prac- 
Rati — - >> ne Number RST Entry is r t when the correspené= 
number re ereqees thro ygh the —* se Access routines. 

ummy 7 Labet ST "necord for the L fumber bui in the same memory 
Stock as the Line Number RST E we A “the R UR ag | 34 to this DST 
record and the DST record's name ielg, co A B. the Line number as a 
counted ASCII string (e.g. ‘SLINE 2 


PES ESSSSORCEIUSESCSSO OSES ESESSE 


ewe emer eer es ce ee wn eenemaenmec eco mane ame masenazane ———2 — — 2——2—— 2— - + 


H RSTSL_HASH_FLINK ' 


eet 


‘ RSTS$L_HASH_BLINK ' 


——2——4 


RSTSL_SYMCHNPTR i 


— 2 


RSTSL_DSTPTR ‘ 


ööö— — — — ——————--4 


RSTSL_UPSCOPEPTR ' 


Geoeeeeeeeeesoecocecoccccoccesco}o ome ee es ee were ean + 
; RSTSW_REF COUNT ‘ Flag bits H RSTSB_KIND H 
‘ RSTSL_STARTADDR : 
RSTSL_ENDADDR 


re OM me Ee meee mem ener n ew ee os ns me ee ee ee + 
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RST ENTRY FOR A DATA SYMBOL 


The RST entry for a data symbol has the corey ow here. as up=scope 
pointer points to the RST entry for the gente ning lexical entity (i.e., 
module, routine, or lexical block) or, if this is a data component, to 
the RSf entry for the containing data object. The Data Symbol RST Entry 
also has a Type Pointer (RSTSL_TYPEPTR). For simple data types (those 
defined by one-byte type codes or standard descriptors) this pointer is 
zero, but for more complex data types (records, variants, and enumera- 
tion types) this pointer points to the RST entry for that data type. 
If the type pointer is zero, the type can be found directly in the data 
symbol’s DST entry. 


PES OSSSSERCETESESCSSSE LSE ESESSE 
4 


RSTSL_HASH_FLINK 


$erer ere rem we cet ene eee meee m ete meso moe nes aeece emer se ere mme see een oe a} 


RSTS$L_HASH_BLINK 


$e ewer emer ete en ee wees BeOS SECO TREE UOTE EMO BSCE EE BE e Beem ramenen} 


RSTSL_SYMCHNPTR 


ber ere ree ———4 


RSTSL_DSTPTR 


Peewee t ern eee 4 


RSTSL_UPSCOPEPTR ' 


RSTS$W_REF COUNT { flag bits {| RSTSB_KIND } 


RSTSL_TYPEPTR 


$araowmeemeonrevecronwmeeesawe nearer naera sneezes ace ewer Roe an om ae ao oe ae ee om om ae me owe 


ow F WN = SO 


This set of field declarations includes the fields outside the RST common core 
used in the Data Symbol, Data Type Component, Data Type, Variant Set, and 
Invocation Number RST Entries. he individual illustrations show which RST 
entries use which fields. 


IELD RSTSFLD_DATA = 
RSTSL_TYPEPTR 


' 
i 
i 
i 
i 
i 
' 
i 
i 
i 
i 
— 
i 
i 
t 
i 


fc é. t. 3. ! A pointer to the Data Type RST Entry 

: which gives the data type of this 

: data object. For simple types, 

: this pointer is zero. 
RST$B_F CODE =(€6, 60. ], ! The ‘format fode of a Data Type RST 
: Entry~-indicates nature of type: 
H array, atomic, record, etc. 
t 
i] 
1 
' 


RSTSW_TYPREFCNT = C 6, Wi_ J, 


RSTSL_TYPREFTAL = f 7, 
RSTSL“BITSIZE =(C 8.1L 


' The number of Sone RST Entries that 
S 


reference this Type RST Entry 


i Pointer to Type Reference Table 
!' The Length in bits of data items of 
: this data type 


LITERAL 
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RSTSL_DST_TYP_REC_PTR = 
vii we. ¢ ™% Sy * 


RSTSL_TYPCOMPCNT= t 10, L_ J, 
RSTSA_TYPCOMPLST= C 11, A_ ], 
RSTSL_VARSETCNT = C 2, L_ ], 

RSTSL_VARTAGPTR = C 4, L 
RSTSA_VARSETTBL = C 6, A 


RSTSL_INVOCNUM = [( 6, L 
TES; 


RSTSK_DATENTSIZ = 7, 


RSTSK_OLENTSIZ = 6 

RSTSK-TYPENTSIZ = 

RSTSK_VARENTSIZ = 
= 


{1, 
RSTSK~INVENTS : 


6 
7 
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A pointer to the DST record containing 
the embedded tyoecspes described 
by the DEBUG bu ST record 
pointed to by RSTSL_DSTPTR. 

The number of record components if 
this is a data record type 

The start of a table of record compon- 


ent RST po —2* 

The number of distinct variants in 
this record variant set 

A pointer to the RST entry of the tag 
variable for this variant set 

The start of a table of variant set 
members, giving the tag value and 

component List for each variant. 
The desired invocation number 


! Declare symbolic names for the lengths of the various data, type, and 


: invocation number RST entries. All lengths are in Longwords. 


Size of the Data Symbol RST Entry and 
the Type Component RST recy 
RST Entry 


e 
Size of the Overloaded syape* 
Size of the Data Type RS Gnery 
Size of the Variant Set RST Entry 
Size of Invocation Number RST Entry 
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ow fF WwW NH =| SO 


RST ENTRY FOR A DATA TYPE COMPONENT 


The RST engry for a data t 03 component has the format shown here. A 

Ro gy n *8 sense reserd component, one of a set of vari- 

RE, he —— on Literals of an enumeration type. The 

int tpretat on of : — type component is thus dependent on the ‘type 
kind Pot the containing data type. 

The 


a 4 uPepcope po pointer — wey 2 — onent St —8 ee cote free we 
wi component one ntr re alwa 
built when the mst for the whole tyge Some built. . 


Like the Data Item RST Entry, the this RST entry also has a type pointer 
which specifies the data type of the component. This is zero for simple 
types or a@ pointer to a Data Type RST Entry for a more complex data type 
(such as records). 


PES SSSSSOACEIUSESSSSE USES — 


> Se wrereor tere ece rem erteo eon — — — — — eet eet e mee mmawoeerwmoeerw ecco nescocaeseenmeanze = a 


' RSTSL_HASH_FLINK ' 


————64 


RSTSL_HASH_BLINK ' 


eet 


: RSTSL_SYMCHNPTR ' 


ô —— — ———— 8222— hb 


: RSTSL_DSTPTR : 


————— eeoeoeoe eeeoeee + 


: RSTSL_UPSCOPEPTR ' 


- eoccocceeces 
i RSTSW_REF COUNT ! Flag bits ' RSTSB_KIND ‘ 


: RSTSL_TYPEPTR ' 


ö — — —22 
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RST ENTRY FOR A DATA TYPE 


The RST entry for a data type has the format shown here. Not all data 
types —23 RST entries--those described * 2* type codes or stand- 
ard descriptors do at - Data Type RST Entries are used for all record, 
variant, and enumeration type data types, however. The up=scope pointer 
always points to the RST entry for the lexical entity (module, routine, 
or lexical block) in which the data type was declared. A data type need 
not have a name, however--it can be anonymous as it is in a PL/I or 
COBOL record declaration. Data Type RST Entries for records, variants, 
and enumeration types are built when the RST as a whole is built. ALL 
other Data Type RST Entries are built only when needed. 


ES SSSSSCROLLOSESS SOLS ESESE SE 


— ao 


i RTI FT NOE, 
am RSTSL_HASH_BLINK 
,At. os Oe ee ee 
ee, I 
i, ROE NSIT a 3 nt OT 
———— EB a 
py PN SO ⏑⏑ü —— 
jf) SOR a 
ree, 
ET ⏑ — 
ee RSTSL_TYPCOMPCNT 
MAES soins a MERSOONUE a ere 


Pointers to the Type Component RST Entries of 
the components of this record 
or to the Data Item RST Entries of the elements 
of this enumeration type 
(Not used for other kinds of data types) 


ù ——— ewe nena necrsseescoeese ese ewmaer ene coe s cee oe nee monoaeceeae 


' 
. 
— 
* 
— 
. 
1 
. 
t 
. 
! 
. 
1 
. 
' 
. 
1 
. 
t 
* 
— 
. 
| 
. 
] 
. 
— 
. 
' 
. 
‘ 
. 
— 
. 
— 
. 
' 
. 
‘ 
. 
— 
— 
. 
— 
. 
— 
. 
‘ 
. 
] 
. 
' 
. 
— 
— 
. 
— 
. 
— 
* 
— 
— 
. 
' 
* 
— 
— 
. 
— 
* 
— 
. 
— 
— 
. 
— 
— 
. 
i 
. 
‘ 
. 
‘ 
* 
' 
. 
— 
— 
. 
‘ 
. 
‘ 
. 
‘ 
. 
— 
— 
. 
‘ 
. 
— 
. 
— 
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for the RSTSB_FCODE field. 


These are the possible values 


RSTSK_TYPE_MINIMUM = 1, 
RS TSK. TYPE- front 


! o=- ee possible FCODE value 


| Aa tyes 
omic VAX standard type 
! VAX standard descriptor type 


' Enumeration t 


ARE J—— 


— — — 0⏑. WS 


— "Oe + ss ee es 8 


ses; 8s 88 88 8&8 8&8 & & & 


RST * -REL_LAB 
RSTSK_TYPE “MAXIMUM = 22; 


! Picture type = in Cobol and PL/I) 
typed pointer type 

ist tees data type 

Subrange data t type 

Unused--available for future use 
Unused--available for future use 
Cobol Hack data item 

Bliss data item 


File data type (as in Pascal) 
Untyped pointer data type 

Area type 

Offset yee 

Variant Set (as in * and ADA) 
Record file address a 

Self relative oy F 

Task type (as in A 

--- Maximum —2 FCODE value 


— — — — — — — — — — — — Ce — — 


DBGLIB.REQ;1 16-SEP-1984 16:48:58.38 Page 125 


RST ENTRY FOR A RECORD VARIANT SET 


symbol chain pointer, and up-scope poin 
pointer points to the variant set's Variant-Set Begin DST record. The 
entry has qxtre fields which point to the tag variable'’s RST entry and 
give the List of individual record variants within the set. 


RES ESESS SSO LLOSESSOSOL SETTLES 


Pewee seer em em emee sees eee ee seme woo m eee eso ee Oe ee meee meee} 


: RSTSL_HASH_FLINK ' 


Powe merece wee meee 4 


‘ RSTSL_HASH_BL INK i 


¢ ewer remem ooo reese ecm cee woc me cece em em momo mam aoeacen eeeeoe womens ooe + 


RSTSL_VARSETCNT 


Pr rr sete Sew eB meae sme o mos me owemnaaead 


0 

1 

2 

ba RSTSL_DSTPTR 
4 

5 

6 


¢ eer ee ee ee owe eee ene econ wee e mcm oe coe ere ow ewmoesacomacace eeeoeeo 22224 


RSTSL_VARTAGPTR 


ee eit ee ee ee er ero eeeoeoee — — — — — — — * — 


RSTSW_REF COUNT i Flag bits { RSTSB_KIND 


Perm newman eww rem eee enw ec ee ee eee fewer ee eee 


RSTSA_VARSETTBL 


' 
Pointers to the Variant Entries (see next page) 
for the variants in this variant set ' 

(One such pointer per longword) ' 


— 
7 
' 
* 
— 
* 
i] 
* 
i] 
. 
‘ 
. 
‘ 
. 
‘ 
+ 
' 
. 
{ 
. 
‘ 
* 
‘ 
. 
' 
. 
] 
. 
— 
. 
i 
. 
— 
— 
. 
— 
. 
‘ 
. 
— 
. 
J 
. 
t 
. 
q 
. 
' 
. 
' 
. 
' 
. 
— 
. 
— 
. 
— 
— 
. 
‘ 
* 
J 
. 
— 
— 
. 
— 
— 
' 
. 
t 
. 


. 
. 
2 
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This is the format of a Variant Entry as pointed to by the pointers 
in the Var any net RST 2* This entry gives the } st of record 

components which comprise this —3* record variant. It also 

gives a pointer to the Variant-Value DST record for this variant. 


ES ESSSSCRCSIOSUSCSOSE LS ES ESET EE 


RSTSL_VAR_DSTPTR 


gm eseeeoeoeoe eSeeoeoeoeoeeoeoe See eee 2 2 2— — — oe we me & oe oe te 


RSTSL_VAR_COMPCNT 


RSTSA_VAR_COMPLST 


List of RST pointers to the record 
components in this variant 
(One per longword) 


54 


4 


— — · — — — eet ee re re re 


Declarations for the fields in the Variant Entry. Also a declaration macro. 
IELD ot : saa etait s 
RSTSL_VAR_DSTPTR 


=[ 
RSTSL_VAR_COMPCNT = ' 
RSTSA_VAR_COMPLST = 


wn 


L_ 1, ! Pointer to Variant-Value DST record 
* {° ' Number of components in this variant 
A ! Start of component RST pointer List 


' 
i 
i 
i 
i 
; 


MACRO 
RSTSVAR_ENTRY = BLOCKC,LONG) FIELD(RSTSFLD_VARENT) %; ! Declaration macro 
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: These definitions have something to do with variant record tag 

4 variables. Unfortunately, no comments were put in to say exactly 
: what they are used for. 

ieee 

: 

: Define something or another. 


FIELD RSTSTAG_BLOCK FIELDS = 


RSTSL_TAG_NUMVALS = [( 0, L. J,! Number of values to follow (1 or 2) 
RSTSL_TAG_LOWBOUND = [( 1, LL J,! Lower bound value 
a a atrial = C2, L. J ! Upper bound value 
LITERAL 
RSTSK_TAG_BLOCK_SIZE = 3; ! The size of the tag variable block 
MACRO 


RSTSTAG_LIST = BLOCKVECTORC,.RST$K_TAG_BLOCK_SIZE) 
FIELDTRST$TAG_BLOCK_FIELDS) %; 


‘ete 
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ow FF WN =| CO 


RST ENTRY FOR AN INVOCATION NUMBER 


The RST entry for an invocation number has the format shown here. This 

es} entry always for Lows the RST entry to which the invocation ag 
i: on the module's Symbol Chain. If a Data Item RST metre! 

— e, has an essoc tates invocation number, then its RST$V_I JocNUM 

bit is set and its RST$ *SYMCHNPTR field points to an Invocation Number 

RST Entry. The Invocation Number RST Entry then Bg td the desired 

invocation number (which is assumed to apply to the innermost routine 

in the scope of the symbol's declaration). Ythe RSTS$L —2080 field 

in the Invocation Number RST pntry points to the original R ¥ gnery of 

the object (usually data item) without an invocation hom Eh, The format 

of the Invocation Number RST Entry is as follows: 


33 33 g g $j 698 634 14 2 Q 9876543210 


feo ewanee See eee eee man See oe wen nmoewe ean eo en ae mo ee 22224 


RSTSL_HASH_FLINK ' 


boar ween etree Po mer eee rw ee -ewerecoee Seeuuceeseeseucoeuse eSeeeeoeoeeae ov as 


' RSTSL ~HASH_BL INK ' 


oe we owe meee 22— os seeeesce ene ee mee eae nen — + 


' RSTSL_UPSCOPEPTR 


¢oeeeececoeoan See eeoeoeoe seer eee 2— sewer wrrrwrZeoewerer — Few eT eZ ew eererrocewewere 


+ + 
RST$W_REF COUNT i __Flag bits i RSTSB_KIND i 


wero smre nen ne ee me ee he een en ee os 


‘ RSTSL_ INVOCNUM 
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RST ENTRY FOR AN OVERLOADED SYMBOL 


The RST entry for an Overloaded Symbol has the format shown below. 

An Overloaded ae — RST Entry_is created for each Overloaded Symbol 
DST record (DSTSK_OVERLOAD). The RST entry is hashed normally so that 
DBGSSTA_GETSYMBOL "can find it. 


PESESESOCSOLLESESSESE SELES ESSE 


peewee eoeeeeeece sees sees eeeseeeeeeeeeeeeeecesoeeeeeeseeeceoceseeocoesce * 


— —— —— — — — — — — — — — — — — — — — — — — — —— 


7— RSTSL_HASH_FLINK 
can ee OO OR A ee cam 
ce ct oe 
eer sa ae Gn OE Oe ee ee 
St. Se os OO OE. ee ee 
5 TT RSTSUREFCOUNT Flag bits! ASTS8,KIND 


DBGLIB.REQ;1 16-SEP-1984 16:48:55.59 Page 130 


wn = & 


— ee ee ee te te te te) — te te te —— —— —— —— 


LITERAL 


MACRO 


SCOPE LIST DEFINITIONS 


nd ode say List were the List of scopes cay Ay sop SET SCOPE 

It is a si nat Y Linked List pointed to by t obal —A 
Seorescist in module RSTCNTRL. Each scope entry on the! ett has th 
ormat: 


RES OSESOCSOLLOSESSESO LIES ESESEE 
Ferm m mre e wee eee sees ee eee esse sees eeeseeeeeeeeeeeoesooooesesossos} 


' SCOPESL_FLINK ' 


—— 


SCOPESL_STATE ' 


pees once emer ne oes —————————— — ——— —— ——— ood 


: SCOPESL_RSTPTR ' 


Pewmwwwewoeoooeeoweeweeeoweowswesceceeocececoocccocccccccccccess} 


H SCOPESL_MODPTR ' 


O —— ——— ——22 


A pointer to a scope List entry is declared as follows: 
SCOPEPTR: REF SCOPESENTRY 


Declare the scope entry fields and the definition macro. 
FIELD scoegerue DEF = 


SCOPESL_FLINK = oltid. : Scope List, * Link or zero 
SCOPESL-STATE =[{ 1, L- J, ! The scope “state” r kind 
SCOPESL_RSTPTR = ¢ i. ae : Pointer to scope's “oun RST e 

feore MODPTR = ih ! Pointer to scope's Module RST “Tere 
SCOPESK_ENTSIZE = 4; ! Size of scope entry in longwords 


SCOPESENTRY = BLOCKCSCOPESK_ENTSIZE] FIELD(SCOPESFLD_DEF) 2%; 


! These are the possible values of the SCOPESL_STATE field. Each of these val- 
ues indicates what kind of scope is to be searched to match a given pathname. 


LITERAL 


SCOPE $K_NORMAL ° ! Normal named s cope 

SCOPE $K_NUMBERED= z i Numbered sco ° (PC in CALL stack) 
SCOPE $K_ GLOBAL ° i Global Symbol Table 
SCOPESK_SETMODS = 4; i ALL SET modules 


————— — — 
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THE SCREEN DISPLAY ENTRY 


— Screen Display Entry contains all information needed to represent 
are {i} ot 8 2 cee é splay on the terminal screen. ALL 33343 are 

are Linked forward ane backward t nks. Each ae | Entry 

contains aut —— on about where the corresponding display | 8 

on the Sirsa. what attributes it has, and what the contents (the text 

of the d * is. The text is represented by pointers to the oon 

Display 8 ntries for the text lines that make up the display. 


SET ESSSSEACEIESUSSOSE LT ES SETS 
4 


DBGSL_DISP_FLINK ' 


—— 2 —4 


DBGSL_DISP_BLINK i 


H DBGSW_DISP_FLAGS ' SB_DISP_REND { SB_DISP_KIND 


: Unused ' DBGSW_DISP_SCROLL i 


H DBGSW_DISP_RLEN ' DBGS$W_DISP_RBEG ' 


: DBGS$W_DISP_CLEN ' DBGSW_DISP_CBEG 


' DBGSW_DISP_DCOL i DBGSW_DISP_DROW ' 


H DBGSW_DISP_LINECNT H DBGSW_DISP_MAX_LINECNT ' 


———— 2 eeeoe — 2 22— oo + 


: DBGSL_DISP_START_LINE_PTR ' 


——24 


DBGSL_DISP_END_LINE_PTR ' 


4 


DBGSL_DISP_WINDOW_PTR ' 


ö—— — — ——2 ------44 


DBGSL_DISP_ERROR_PTR H 


oon co uw Fw HH =| CO 


— — 
— oO 


oman peeseoeessesseuvoeecaseoussesoseseessssesouceosessce eeeeoeoeoe + 
12 ‘ DBGSL_DISP_OLDTXT_PTR H 


— 
we 


' DBGSL_DISP_MODPTR H 


O——— ca 


: DBGSL_DISP_CENTER ' 


õ ⏑ + 


: DBGS$L_D1ISP_MARKL INE i 


Pe —————-----4 


: DBGSL_DISP_MINLINE ' 


ö — eeeoeeoe wma ph 


: DBGSL_DISP_MAXLINE ' 


——————2 


DBGSL_DISP_CMDLIST ' 


ö—— — —— ——————2 ———————4 


— se si s 
onvrew & 
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i 
F 
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900006 0666 6666S SSS SSE4E CSS SSSSSSSSSSSSSSSSSSSSSSSSESESESOEEEEES + 


DBGSA_DISP_NAME 


The display name in Counted ASCII 


‘ 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 

+ 


} cecccccecccccs 


ALL Screen episgioy F Entries are Linked together on a Poualy Linked List 
for which lock DBGSSCR <DISPLAY. IST is the List head. Also, 
the DBGSL ISP START_LINE_PTR and D DISP_END_LINE_PTR fields of 
the Display Entry constitute the Uist pi for the doubly Linked list 
of Screen Display Line Entries associated with this display. 


A pointer to a Display Entry is declared as follows: 


DISP_PTR: REF DBGSDISP_ENTRY 


Define the fields of the Screen Display Entry. 
IELD basen is? FLD = 
DBGSL_DISP_FLINK = {( 0, LL }- ! Screen display List forward Link 
DBGSL_DISP_BLINK =(f{ 1, 1L ' Screen display List backward Link 
DBGSB_DISP-KIND = 2, B0_ i. i Screen display kind 
DBGSB_DISP_REND = 61 ' Screen —89 rendition bits 
DBGSV-DISP-REND_BLD = (°2, 91_(0) J, | Bolding rendition bit 
DBG$V_DISP_REND_RV = - Vi) J, i Reverse-video rendition bit 
Fae Oto REND BLK = ° —9534 i Blinking rendition bit 
DBGSV_DISP_REND_UND = - V1i-(3) i Underline rendition bit 
DBG$SW-DISP-FLAGS =( 2, W1_ J, ! Screen display Steg it 
DBGSV_DI SP-REMOVE = (°2, 02.00) J, =! Remove d ay strom. asteboard 
DBG$V_DISP_INVSCR = >» Oth? ae i pert ity bf P_S eld 
DBG$V_DISP_ATTOP = Vv ~(¢ ° ! Display at top 3 yo Be "fe 
DBG$V_DISP_ATBOT = - V2(3) J, ; pieploy at bottom of source oo 
GS$V_DISP_MARKFLG = - V2.(4) J, ! Mar anged Lines in di spi ay 
DBGSV_DISP_NEWDISP = 4 (5) J, ! New d ay Os TE gt marking 
SW_DISP_SCROLL = . $w0_"J,! Screen display crelling g count 
: = - Wil J, ! Unused (available for future use) 
DBGSW_DISP_RBEG = [ 4, WO. J, ! Screen window beginning row bocation 
DBGSW_DISP_RLEN = [( 4, Wil J, ! Screen window row Length (height) 
DBG$SW_DISP_CBEG = 3° wO. J. ! Screen window pep inn ise — Location 
DBGSW_DISP_CLEN = - Wil J, ! Screen window ‘ uan length (wi hy 
DBGSW_DISP_DROW = [ 6, WO. J, ! Screen window display roe location 
DBG$W_DISP_DCOL = [ 6, Wi_ J, ! Screen window di toley co col yan location 
DBG$W_DISP_MAX_LINECNT ; screen ener ey ; max count 
= f 7, wO_ }: : Lines at in 5 
DBGSW_DISP_LINECNT= [ 7, Wi_ J, ! Screen” — y's a étual Line count 
DBGSL_DISPISTART LINE PTR i Pointer to first Line of displa text 
=(8,tlj, ! (po nts to display Line entry) 
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DBGSL_DISP_END_LINE_PTR 
i we 1 HE 


*—*8 aie Last Line of tine en sent 
DBGSL_DISP_WINDOW_PTR 
= 


ts to é splay ine oy 
— x irst screen window 
ts 4 a tats Line Entry) 


10, LL (po 
DBGSL_DISP_ERROR_PTR Pointer te Aye of error messa 99 
=({ i,t. 1], play L . (fate 34 for ‘gptey 
DBGSL_DISP_OLDTXT_PTR —3 AE ist Display L 
={( 1 —— fo ye changes 


DBGSL_DISP_MODPTR = 18: 


L 

L 

L 

L Pointer to Rodule RST Entryerused for 
DBGSL_DISP_CENTER = C 14, L 

L 

L 

L 

L 

A 


ource Line displays only 
Central Line number for source, display 
Line number to be partes wich 

source Line d My an Ay or - * 

Minimum source Line number in module 
Maximum source Line number in module 
Pointer -. display’s DEBUG command 

ist entry (or zero) 
The 4444 Ss name in Counted ASCII 


DBGSL D1 SP_MARKL INE “ 
DBGSL 33 _MINLINE® 16. 
DBGSL-DISP"MAXLINE= [ 17, 
DBGSL-DISP“CMDLIST= C 18. 


DBGSA_DISP_NAME = [ 19, 
TES; 


MACRO 
DBGSDISP_ENTRY = BLOCKC,LONG] FIELD(DBGSDISP_FLD) %; 


LITERAL 


DBGSK_DISP_ENTSIZE = 19; ! Size of the fixed part of the Screen 
i Display Entry in longwords 


! Define the Literals used to indicate the display kind. The display kind 
; determined how the contents of the display are generated. 


LITERAL 


DBGSK_DISP_MINKIND = Q, ! -=--Minimum kind value 
DBGSK_D1SP_NOKIND = 0, i No — in calls to indicate no 
i change to the display's kind 
DBGSK_DISP_NORMAL = 1, i mens 2*86 kind--contents geter= 
i y direct user input 
DBGS$K_DISP_DO = ¢ i et... specified by 00 command List 
DBG$K—D1SP— SOURCE = i Source ¢ disp ley with Zentents speci- 
i y @ source command list 
DBGSK_DISP_REGISTER = 4, i ——— is machine register display 
DBGSK_D1SP—MAXKIND = 4; i s=-Maximum kind value 


: Define Literals for the display rendition bits. 


LITERAL 
DBGSM_DISP_REND_BLD = 1, ? Bolding rendition m mesh 
DBGSM_DISP_REND_RV = é- i arye req ideo ren ndit on mask 
OBGSM_DISP_REND_BLK = 4, i king rendition mask 
DBGSM_DISP_REND_UND = 8; i Under | tee rendition mask 


! Define the Literals used to indicate the scrolling direction when scrolling 
; a@ screen display. 
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38 Page 


lay to the right 


l 
L 


~~, 
wo 
fo] 
w 
Oo 
«— 
3 aaaa 
o 
— 
o 
a 
ey 
” 
i 
~o 
— 
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THE SCREEN DISPLAY LINE ENTRY 


Screen Display Line Entry holds the text a other attributes of a 

ns forward and backward 

ne Entries for the previous 

Line and the next Line ef the same display. The Line Entry also con- 
on 


The 
Line within a screen disple - This entry conta 
Links which Link this Line Ente ie 


Screen Display Line Entries come om yes variants, t 


NORMAL DISPLAY LINE ENTRY 


The Normal Display Line Entry is used for all screen R except 


Source screen displays. This is the format of the Normal Screen 


Display Line Entry: 


PET SSESSCRCEIUSESCESSOE USES ESSSEE 
bee w mewn enn n een n nn nn nnn nnn enn eo  e + - - - + -- weeenne-+ 


H DBGSL_DLINE_FLINK i 


owen ewore ew oe ecm w econ meer mec e me eee eer een wom em mmc ewe ww we oe moon eeeeoeoe * 


DBGSL_DLINE_BLINK 


dew mocec ene eme mod 4 


: Unused ‘$B_DLINE_LENGTH: Flags + SB_DLINE_REND | 


dew wren cce C tee Pw mewmoamm meen oe $e erm mmm rene eee} 


DBGSA_DLINE_TEXT : 


The Counted ASCII text of the display Line 


i 
‘ 
‘ 
' 
' 
' 
‘ 
‘ 
‘ 
‘ 
' 
' 
‘ 

+ 


22 
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4 Normal and the 

splay Line éntr es are used for 

source displays as the name implies, and Normal Display Line Entries 
spla 
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: NORMAL DISPLAY LINE ENTRY WITH RENDITION VECTOR 


— a Sate he — —1 may include a “‘rendition vector’ if the 

é 5° ame for the entire Line. In t his case 
the “bagsv Bi INE RE RERDFLG, 8 set tin the Display Line entry s Bit tield 
and —2 tor’ is present at the end of the sp 
Entry. inned ately” following the Counted ASCII text of Lay 
line. e rendition vector contains one byte of rendit J aoa or 
each ——— in the Counted ASCII text of the Line. The rendition 
vector has the same length as the Counted ASCII text. 


ia 5 j 5 é g 3 s i 6 9 8 44 j d 0 9876543210 


+--+ 
ha 
ow 
2 
ae 
— 
2 
m 
Da 
m 
=z 
J 


Unused 188 -DLINE “LENGTH Flags 


“DBGSA_ DLINE ~TEXT 


The Counted ASCII text of the display Line 
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: SOURCE DISPLAY LINE ENTRY 


The Source Display Line Entry is used for source displays only, and 

contains extra Line number information which is not needed for other 

kinds of ay gE The DBGSV_DLINE_SOURCEFLG bit is always set in a 

peurce Bispley ne Entry. This is the format of the Source Display 
y: 


RES SSESOSSC ES OSUSCCSSORS CSS SSL SL 


trem meme se ne ee moe mame Se Bee se BEBO Bae ne MeO oc eee mae} 


' DBGSL_DLINE_FLINK i 


omen mater Ewes Se OSS ESTO BODO Be seen wewennoocoa +} 


' DBGSL_DLINE_BLINK H 


‘ DBGSW_DLINE_FILEID ' Flags + SB_DLINE_REND ; 


Pew eee o nce I e S ô e seco see sez eofeamaescm nem eco acon} 


0 
1 
2 
ka DBGSL_DLINE_RECNUM i 
4 
5 


$m eee tem mmm ene ome me RO RR ENE EE RCO eee Oe} 


' DBGSL_DLINE_LINUM 


pwreeor ea woe renner emer awece eeeee SP Sw SSS Sw SS Sew OS Ow mM eS we Se ee ee me 


DBGSA_DLINE_TEXT2 


The Counted ASCII text of the display Line 


$ oo ewww ww wenn & <= 


> oe ww oe ew cesses 


Each Display Line entry is part of a omy! Linked List of such entries 
associated with some display. The fields DBGSL_DISP_START_LINE_PTR and 
DBG$L_DISP_END_LINE PTR in the display’s Screen Display Entry constitute 
the List héad for this List of Display Line Entries. 


The Display Line Entries associated with e display are reused as new 
text is added to the dept er contents. For this reason, each entry 
contains not only the Length of the current text Line but the length 
of the entry's text buffer as well. The text buffer will be longer 
than the current text Line if it contained a longer text Line earlier. 


A pointer to the Screen Display Line Entry is declared as follows: 
DLINE_PTR: REF DBGSDLINE_ENTRY 


Define the fields of the Screen Display Line Entry. 
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FIELD DOSSPL INE FLD = 


SBGSL _DLINE_FLINK = 9. Le }: ! Forward Link to next Line entry 
DBGSL_DLINE =BL INK = ol ! Backward Link to previous line entry 
DBGSB_DLINE_REND = [ 2, BO_ J, ! Rendition bits for this Line 
DBGSV-DLINE-REND_BLD = ( 2,-v0_(0) J, =! Bold ng rendition 
DBGSV_DLINE_REND_RV = » VO_(1) J, i Reverse-video eens tle bit 

GS$V_DLINE_REND = ov -{¢} » | Blinking rendit 

GSV_DLINE_REND_UND = VO_(3)_J, _ ! Underline —— bit 

{_ ]7 1 the flag byte 

DBGSV_DLINE_RENDFLG = f v1) 1, {Line includes rendition vector 
DBGSV_ _DLINE ~SOURCEFLG= » VIG) J, ! Set for Source Disp Line Entry 
bc _DLINE_LENGTH= f ¢- B2_J, ! The length of the text buffer (bytes) 
DBGSA_OLINE TEXT = » AL 1, ! The Line's text in Counted ASCII 
DBGS$W_DLINE_FILEID= ¢ Wi_J, ! Source File ID of source Line 

BGSL_DLINE_RECNUM= -l.J. ! Source file record number of Line 
DBGSL_DLINE_LINUM = (4, L_ J, ! Line number of source Line 
Peron Pes TERT E =(€ 5, AL ! Source Line's text in Counted ASCII 


MACRO 
DBGSDLINE_ENTRY = BLOCKC,LONG) FIELD(DBGSDLINE_FLD) %; 


LITERAL 


DBGS$K_DLINE_ENTSIZE = 3, : Size 7. My + pert e eoregt Display 
ry in lon 
DBG$K_DLINE_ENTSIZE2 = 5; Size + fixed cert of —— Display 


Line entry in longwords 
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THE SCREEN PASTEBOARD ENTRY 


The screen pasteboard, on which all displays to be output on the 
terminal are pasted to determine what occludes what, is represented 

by a blockvector. The vector is indexed by Line number and has one 
entry (block) for each Line on the screen. The Length of the vector 
is actually 21 (not 24) so that the last three Lines on the screen are 
always reserved for user program output and DEBUG input prompting. 

For each Line, the vector contains one Pasteboard Entry of the 
following format: 


3 3 222 Seepeunveavanet? 

10 § ‘ 5 6 g & g 5 1 6 98765432109876543210 

oo-e----- a te terete et Cet ey or 

J DBGS$W_PASTE_SCROLL ! $B_PASTE_REND ! $B_PASTE_KIND H 
DBGSL_PASTE_DISPID ' 
DBGSL_PASTE_DLINE ' 


f¢aeewese oe ere Se Oe — see oo nome Beater ea am same Se ES 2— + 


Define the fields of the individual Pasteboard Entry. Also declare the 
declaration macro and the size of the vector and of each block. 


IELD DBGSPASTE_FLD = 
SET 


— ⸗— te — — — — — — — — — tar te te ee ee te — —— —— 


DBGSB_PASTE_KIND -4. 80. 413 The kind of Line this entry holds 
DBGSB_PASTE_REND = [ 0, B1_ J,! The rendition bits for this Line 
DBGSW_PASTE SCROLL = C 0, SWT_J,! The scrolling amount for this Line 
DBGSL_PASTE_DISPID = C 1, L_ J, ! Pointer to Display Entry for Line 
PBeSL PASTE _DLINE =(€ 2, tl. ] ! Pointer to Display Line Entry 


DBGSPASTEBOARD = 
BLOCKVECTORCDBGSK_PASTE_SIZE, DBGSK_PASTE_ENTSIZE, LONG] 
FIELD(DBGSPASTE_FCD) %; 


LITERAL 


DBG$K_PASTE_SIZE = g' ! Number of Lines in pasteboard. 
DBGSK_PASTE_ENTSIZE = 3; ! Size of one Pasteboard Entry in 
: lLongwords 


Define the allowed values of the DBGSB_PASTE_KIND field. 
LITERAL 


DBGS$K_PASTE_NULL = 1, ! Null Line-=no display covers it 
DBGSK_PASTE_TEXT = ¢ ! Text Line from a display 
DBG$K_PASTE_BLANK = 3, ! Blank Line within a display 


' 
i 
i 
' 
F 
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DBGSK _PASTE_LABEL 


=“ = 4, ' To b d j i h 
DBGSK “PASTE BORDER Pp border Line with Label 


5; ! Bottom border Line on screen 


1 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
é 
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THE SCREEN WINDOW ENTRY 


The Screen Window Entry contains all the window parameters associated 
with a named screen window. It also contains the actual window name. | 
ALL Screen Window Entries are Linked coperher on a doubly Linked List 
for which the OWN block DBGSSCR_WINDOW_LIST is the List head. 
3 222 SeeuaVnEVEne’ 
Tose eee ese eek ekg bib o ez 6s43210 | 
+eence Someta scenes n eee eeeeeoneaecsose eeowesoeeocce eoccecococe + 
ee DBGSL_WINDOW_FLINK i 
1 3 DBGSL_WINDOW_BLINK H 
2 H DBGSW_WINDOW_RLEN : DBGSW_WINDOW_RBEG | 
33 DBGSW_WINDOW_CLEN DBGSW_WINDOW_CBEG | 
4 DBGSA_WINDOW_NAME 
| 


The window name in Counted ASCII 


A pointer to a Screen Window Entry is declared as follows: 
WPTR: REF DBGSWINDOW_ENTRY 


Define the fields of the Screen Window Entry. 
IELD DBGSWINDOW_FLD = 
SET 


— ee te ee ee — — — — — — et eee ee 


DBGSL_WINDOW_FLINK = C 0, L_ }- ! Forward Link to next Window Entry 
DBGSL_WINDOW BLINK = ( 1, L ! Backward Link to previous Window Entry 
G$W_WINDOW-RBEG = - WO_ J,! Beginning row location on screen 
G$W_WINDOW_RLEN = - W1_ J,! Row length (height) of window 
BGSW_WINDOW CBEG = o WO. ft Gopianite column location on screen 
DBGSW_WINDOW_CLEN = - Wi__J,! Column Length (width) of window 
a3 WIND =(€4, A, J] ! The window's name in Counted ASCII 


MACRO 
DBGSWINDOW_ENTRY = BLOCKC LONG) FIELD(DBGSWINDOW_FLD) 2%; 


LITERAL 
DBGS$K_WINDOW_ENTSIZE = 4; ! The size of the fixed part of the 
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: Screen Window Entry in longwords 


f 
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SOURCE DIRECTORY SEARCH LIST 


The Source Directory Search List is a List structure which keeps track 

of all source directory names specified by the user via SET SOURCE and 

SET SOURCE/MODULE=xxx commands. This structure is thus searched when 

2 auese file must be opened so that the file is opened in the proper 
rectory. 


The structure of this list is as follows. Variable DBFSSRC_DIR_LIST in 
module DBGSOURCE points to a singly Linked List of Source Director 
Search List Header Blocks. Each Header Block contains a Module RS 

Entry pointer (which may be zero) and points to a singly Linked List of 
Source Directory Search List Entries. Each such entry contains a direc- 
tory name as a Counted ASCII string. 


ound, the Header Block with the zero Module RST entry per is used 

instead. The found Header Block then points to the Linked List of 

directory names to use when searching for the desired source file. If 
there is no Header Block with either the desired module pointer or the 

zero module pointer, no Source Directory Search List Entries are used-- 

the file name from the Declare Source File DST command is used as is. 


The command SET SOURCE/MODULE=modname dirl,...,dirN is represented by a, 
Header Block with a gotater to the Module RST Entry for module ‘‘modname' 
and a gotater to a Linked List of Entries. There is 
of dirl, ... rN. The command SET SOURCE dirl,...,dirN is represented 
by a Header Block with a zero Module RST Entry pointer and of course a 
pointer to a Linked List of Entries for dirl, ..., dirN. 


one Entry for each | 
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SOURCE DIRECTORY SEARCH LIST HEADER BLOCK 


The Source pevegtery Search List Header Block, as described on the 
previous page, has the following format: 


ES OSSSSORCTIESUSSOSO LIES ESET EL 


wm em eeeeeeeeeseeoeeoeeeoeeee soso ceseseeeeeeeeceseeeeeceoeeooecossa} 


0 ; SDSLSL_FLINK ' 


— + 


H SDSLSL_LIST_PTR H 


' 

; 

i 

i 

; 

; 

; 

i 

i 

i 

i 

; 

as SDSLSL_MODPTR 
i 
i 
i 
; 
i 
i 
i 
F 


Feeeoeecoeroeeeeeeese ee eeeeeeeeeeoeeseoeeeeoeeeoeeseeeseeeeeeeseeococoecn * 


— —— to a Source Directory Search List Header Block is declared as 
ollows: 


SDSL_PTR: REF SDSLSHEADER 
Declare the fields of the Source Directory Search List Header Block. Also 
declare the declaration macro. 

IELD SOS, PLD _MEADER = 
SOSLSL_FLINK = 
SOSLSL_LIST_PTR = 
SDSLSL_MODPTR = 


! Forward Link to next Header Block 

' Pointer to List of SDSL Entries 

! Pointer to Module RST Entry of module 
to which search List applies; is 
zero if for all other modules 


err 
20 
——— 
ce 
ve 
ish 
ss 


TES; 


LITERAL 
SDSLSK_HDR_SIZE = 3; ! Size of SDSL Header Block in longwords 


MACRO SDSLSHEADER = BLOCKCSDSLSK_HDR_SIZE] FIELD(SDSLSFLD_HEADER) 2%; 
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SOURCE DIRECTORY SEARCH LIST ENTRY 


There is one Source Directory Search List need | for each oivoq tory name 
specified on a SET SOURCE command. The ‘directory name'’ may in fact 
contains a full file name, including extension and version number, but 
in most cases it is used only to override the directory name as given 
in the Declare Source File DST command. This is the format of a Source 
Directory Search List Entry: 


PES SSSSSEAE EI USOSCOSSE USES ESESSE 


Pew r arse sen ener eee EB eee EEO Ee COO Oe emer eee ewe women} 


a SDSLSL_ENT_FLINK ' 


SDSLSA_ENT_DIRNAME | SB_ENT_DIRLEN } 


Sew Oe em a + 


+ 
(Directory name in Counted ASCII) H 


' 
' 
' 
‘ 
ee ' 
+ 


deo rmnrenr nero nan cea —— —— — Se SS Oe SOO ETE wae OEE Ew — Bo eae Soe wo Se oe 


A pointer to a Source Directory Search List Entry is declared Like this: 
SDSL_ENT_PTR: REF SDSLSENTRY 
Declare the fields of the Source Directory Search List Entry. Also declare 
the declaration macro. 
IELD SDSLSFLD_ENTRY = 
SET 


! 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
f 


SDOSLSL_ENT_FLINK ={({ 0, L_ J, ! Forward Link to next SDSL Entry 
SDSLSB_ENT_DIRLEN = ([( 1, B0_ i. Length in characters of directory name 
R =(€1, Al_ J ! First character of directory name 


SDSLSA_ENT_DIRNAME 
TES; 


LITERAL 
SDSLSK_ENT_SIZE = 1; ! Size of fixed portion of SDSL Entry 
: in longwords 


MACRO SDSLSENTRY = BLOCKC,LONG) FIELD(SDSLSFLD_ENTRY) 2%; 


———————— 
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SOURCE FILE CONTROL BLOCK 


This is the format of the Source File Control Block: 


PEGGRERERRERIRIURL 


} 111 
432109876543210 


Fa amen oenocenn aren awen = Sw Bere sesceeono sow e mn eee nm n rn eecawmowremawacewwe + 


' SF CBSL_FLINK i 


et 


H SF CBSL_BLINK i 


‘ Unused (MBZ) + SFCBSB_KIND } 


' SF CBSW_RFACURLEN ' SF CBSW_ RF SPACING i 


: SF CBSL_RFATBLPTR i 


———4 


SFCBSL_DSTPTR ' 


boone — ———---44 


SF CBSL_FABPTR ' 


4 


SF CBSL_RABPTR i 


——4 


SF CBSL_NAMPTR ‘ 


——4 


SF CBSL_XABDATPTR i 


9988908800888 S SSS SSS + 


' SF CBSL_XABFHCPTR ' 


O—— ——— Smee are oe + 
; SF CBSL_NAMBUF FER 
; SF CBSL_CURRECNUM 


: SF CBSL_CUR_RFAO ' 


2—2 524 


Unused SF CBSW_CUR_RFA4 H 


ö—— —— — ——————- eeeeoe > 
‘ SF CBSL_LBRINDEX H 


The Source File Control Blocks (SFCBs) keep track of all qervontty ¢ qoee 


source files. This includes modules within source —8 es as wel 


normal RMS files. Each such block Contains te informati ten needed * 
iheze b socks form a 
n module 

block on The b 1. $ are always 

— ntained Pon order so that the * Recently ised q SFB s first in t 
s ordering allows 


read source records, tr from the corre “varia Bhe 
circular doupl yt nked List, where var ab e —2 — PTR 
SOURCE nts to the first 


List and the Least Recently Used block 


DEBUG to close the Least — iA Used source Hite when a file must be 
closed in order to open a new e. 
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' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
F 


LITERAL 


pyeue always —* fixed number ef ource File Control 8B acke on the 
List Ss number ‘3 gives by variable DBGSSRC_MAX_FILES module 

tit can be nite by the user with fhe MAX SOURCE FILES 
command. Th “gg Uta he number of source *| es which are open 
at the same time. such mit is required to prevent DEBUG from usin 
up too many of the | ited pe A, of channels the user can —* ° me 
any one time. Thus, when all SFCBs are in use and a new source 
must be opened, the bpest Recently Used file is closed and its SFCB. is 
reused rs the new f 


A pointer to a Source File Control Block is declared as follows: 
SFCB_PTR: REF SFCBSBLOCK 


Declare the fields of the Source File Control Block. Also declare the 
declaration macro. 


IELD srceerue DEF = 


oF CBSL _FLINK =(€0, lL. }- ! Forward Link to next SFCB 

SF CBSL_BLINK =Ci,t ! Backward Link to prey ious. og B 

SFC - BO. J. ! The kind of source file t 

SFCBSW_ “RF ASPACING= - WO. J, The allocated length of the” RFA table 

SF CBSW_RFACURLEN= o Mi. Je The used Length of the RFA table 

SFCBSL_RFATBLPTR= ( 4, L_“J, Pointer to Record File Address (RFA) 
table for this source file 

SFCBSL_DSTPTR =({ 5, t_], Pointer to DST Declare Source File 
command for this source file 

SFCBSL_FABPTR = $. iL. 2. Pointer to the FAB for this file 

SFCBSL_RABPTR = > Bi ae Pointer to the RAB for this file 

SF TR g. i ae Pointer to the NAM block for this file 

SFCBSL_ “XABDATPTR= » &. de Pointer to the XAB Date and Time block 


for this file 
Pointer. to XAB File **x* Character- 
istics block for this file 
Pointer. a “gulter for a block file 
ptrtage Fe for this e 
Record —— at which the source file 
is currently positioned 
RFA at which the source file 


SFCBSL_XABFHCPTR= C 10, L_ J, 
SFCBSL_NAMBUFFER= l 11, L_ J, 
SFCBSL_CURRECNUM= [ 12, L_ J, 
SFCBSL_CUR_RFAO = C 13, L_ J, 
SFCBSW_CUR_RFAG = C 14, wO_ J, 


oned last 2 bytes) 
Fr COS LOR ER =(€ 15, tt. ] 


Lterery ti Ag} index used by Librarian 


SF CBSK_SIZE = 16; ! Size of SFCB in lLongwords 


MACRO SFCBSBLOCK = BLOCKCSFCBSK_SIZE) FIELD(SFCBSFLD_DEF) 2%; 


Declare the possible values of the SFCBSB_KIND field. 


~ ARBEREE = 


SFCBSK_FILE_UNAVAIL = 4; 
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h 

Ii ER Sig ant 

This oe su for a module within 

This rae is. oceup brary by if tite which 
S presently not availab 


eee | 
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i 
— 
i 
i 
i 
— 
i 
i 
7 


wn —- ©& 


SOURCE FILE 10 TABLE 


The Source File ID Table is used during the decoding of the Source Line 
Correlation DST Record to ao track of the File IDs used to reference 
the current module's source files. The Source File ID Table consists of 
a singly Linked List : Source File ID Table Entries, where each entry 
gives a File ID, a pointer to the corresponding Declare Source File 
command, (This command gives all needed information about the identity 
and nature of the source file.), and the current source record number. 
This table is used rocally in routine DBGSSRC_TYPE_LNUM_SOURCE in 
module DBGSOURCE. This is the format of each Source File ID Table 


Entry: 

PES ESSSSOLCTOOSOSSSSE LISS — 
ORT EAT YT ROL ART, 
RTE ER 
SF ITSL_CURRECNUM ' 


—— — eeeeee + 


A pointer to a Source File ID Table Entry is declared as follows: 
SFIT_PTR: REF SFITSENTRY 


Declare the fields of the Source File ID Table Entry. Also declare the 
declaration macro. 


IELD SFITSFLD_DEF = 
SET 


SFITSL_FLINK ={C0,t. 1]. ! Forward link to next SFIT entry 
SFITSL_LFILE 1D =C€f1, lL. J, ! File ID value for this source file 
SFITSL_DSTPTR ={€2,t.], ! Pointer to DST Declare Source File 

; command for this source file 
SFITSL_CURRECNUM = (3, L_) ! Current source record number for 
Tes : this source file 


LITERAL 


SFITSK_SIZE = 4; ! Size of SFIT entry in longwords 


MACRO SFITSENTRY = BLOCKCSFITSK_SIZE] FIELD(SFITSFLD_DEF) 2%; 
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SOURCE FILE RECORD FILE ADDRESS TABLE 


This is the format of each Record File Address Table entry: 


SES SSSSSCOLLOSESESSELS OSES ESE 


. 5 RFATBLSL_RFAO i 


ee 


1 i RFATBLSW_RF AG i 


peowooecccceeeeecosooceecccecccn} 


The Record File Address Table correlates record numbers in a source 
file with RFA‘s for that file. It is used during the TYPE command 
and Saar tt that cause source Lines to be displayed, to 
Ae locate the desired record more efficiently. 


here is one RFA table for each open site. The table is allocated 
ng DBGSSRC_INIT gee 3 4 ity to the table is placed in the 
Source File Control Block. The table consists of a fixed number 
of entries (RFATBL_SIZE ENTRIES, defined in DBGSOURCE) - 


For every N records in the file, there, is one RFA entry. That is, 

the first entry is the RFA for record 1, the next for record (148), 
the next for record (1+2N), and so on. The spacing N can be adjusted 
dynamically and is kept in the Source File Control Block. 

A pointer to an RFA table is declared as follows: 


RFATBL_PTR : REF RFATBLSBLOCKVECTOR(RFATBL_SIZE_ENTRIES) 


i Declare the fields of an RFA table entry. Also declare the declaration macro. 
FIELD RFATBLSFLD_DEF = 
SET 


RFATBLSL_RFAO = f OP 6th } - ! Block number part of RFA 
REATBLSU_ RFAG =(€ 4, WO i Byte offset part of RFA 


' 
! 
1 
i] 
' 
! 
i] 
i 
4 
— 
— 
— 
— 
5 
— 
— 
— 
— 
— 
— 
i 
i 
‘ 
‘ 
‘ 
— 
— 
— 
— 
— 
— 
— 
— 
— 
] 
— 
— 
— 
F 


LITERAL 
RFATBLSK_SIZE = 6; ! Table entry size in bytes 


MACRO 
SPATOL SDL Otvet? sah = 
BLOCKVECTOR CN, RFATBLSK_SIZE, BYTE] FIELD(RFATBLSFLD_DEF) 2%; 
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STATIC ADDRESS TABLE DEFINITIONS 


The Static Address Table (SAT) consists of a two-level structure. There 
is a Program Static Address Table which apes ty ies what static addresses 
(code addresses and static data addresses belong to what modules. This 
table consists of a Linked ptt of SAT entries where each entry spec - 
fies an address range and a ™ nter to the corrospens ine Module RST 
Entry. The list is ordered by start address so that low start addresses 
come before higher start addresses. It should be noted that a given 
address may be covered by more than one SAT entry because different mod- 
ules can have global PSECTs in common=--Fortran COMMON blocks cause this 
situation to arise. Given an address, the Program Static Address Table 
can thus be searched to find the module that contains the address. 


On a second level, there is a —*14 Static Address Table for each mod- 
ule that is SET. This SAT is a Linked list of exactly the same structure 
as the Program SAT except that the RST pointer in the SAT entry points 
to the RST entry of the symbol, not the module, containing the address 
range. This list is also ordered by start address and again more than 
one symbol may contain the same address (due to Fortran EQUIVALENCEing 
for example). If two entries have the same start address, the entry. 
with the larger end address is placed first in the Module SAT; this is 
crucial to the correct behavior of the DBGSSTA_SETCONTEXT routine where 
routine addresses are compared to PC values from the VAX call stack. 
The Module RST Entry contains a pointer (RSTSL_SAT_PTR) which points to 
the first SAT entry on the module's SAT chain. 


Note (R. Title)=- for a future release of DEBUG, I intend to turn the 
SAT chains into binary trees, instead of Linked Lists. The reason for 
this is that for large progress. the SAT chains can grow quite long 
$:2° entries), and it becomes quite expensive to search this 
lis linearly. 


The tree search algorithm will work senothing like this: If the 
desired address is greater than the address in the SATSL_END field 
of the current node, follow the ‘right son’’ pointer. If Tt is 

less than the address in the SATSL_START field of the current node, 
then follow the “left son’ pointer. If it is in the range, then 

we have found the desired SAT entry and we are done. 


During the transition to this new data structure, the same four 
fields are being kept in the SAT entry in the pane place (so that 
the old code still works). The ‘‘right son" field is overlaid with 
the FLINK field, so that the tree search algorithm will 

work on the old Linked lists (a linear list is just on, extronely 
unbalanced tree, with no left branches). The “left son’’ field will 
occupy the fifth Longword. 


The individual Static Address Table entry has this format: 


PET SSSSSSRELIOSESSOSE LT ES EELS 


| 


— — — — — — — — — — —— —— ———— — —— — — 
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; 
— — — 


— 


Field definitions for the SAT entry. 
IELD SAvOr LD Der = 


1 

as SATSL_FLINK (also SAT$L_RIGHTSON) ' | 

a Ea SATSL_START 

ee ey SATSL_END : - 
| 8 : SATSL_RSTPTR ! 

os SATSL_LEF TSON 

i —öö— ——— — J 
i 
A pointer to a Static Address Table entry is declared as follows: 
SATPTR: REF SATSENTRY * 
ij 


SATSL_FLINK =(C0,t.1], ! Forward Link to next SAT entry on the 
} chain=--zero terminate the chain. 

SATSL_RIGHTSON =[( 0, L_ J, ! Link to right son in binary tree. 

SATSL_START 314% = 1. \ 

Ss * = ¢ A. ae ! End address of address range 

SATSL_RSTPTR = » he oe ! Pointer to RST entry of module or sym- 
} bol containing this address range 

pore Aer tsee *€ 4. 3 ! Link to left son in binary tree. 

LITERAL 
SATSK_ENTSIZE = 5; ! Size of one SAT entry in Longwords 


MACRO 


| 
| 
| 
! Start address of address range | 
| 
| 
SATSENTRY = BLOCKCSATSK_ENTSIZE] FIELD(SATSFLD_DEF) %; 

| 

i 

| 


ee enw re 


On OW kW | OO 
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VALUE DESCRIPTOR DEFINITIONS 


Value Descriptors describe Language values generated during the proces- 
sing of language expressions in DEBUG commands Like EVAL and DEPOSIT. 
The Lonquage. ‘Qeppendent version of the Value Descriptor consists of 
the Value and Ades od Descriptor header fields followed by a 3-Lon pre 
VAX Standard Descriptor followed by the actual value described by 

Value Descriptor. It thus has the following format: 


RES OSSCS SACRE USSSS OSE LSESESESE, 


+ + 
i S68 DHDR LANG i S68 _DHDR_TYPE ' __DBGSW_ DHDR LENGTH ' 


~_DBGSW_ DHOR_ FLAGS H 


' DaGsL ~VALUE -POINTER ' 


— ee ee ee ea eee eras es eeer anes aoe + 


: Third longword of VAX descriptor--usage depends on class. 


— ere rman nae SBE BEBE — — — sees eee ne erm ear ern oan escenm sero aaso aes 


DBGSA_VALUE “ADDRESS 


If DBGSB_DHDR_TYPE contains or _VALUE_DESC, then 
the actual value will be stored here. 

A byte or word integer value is stored extended to 
longword integer using sign= or zero-extension, as 
appropriate. 


5—5 oo 


} ce ces ecccccecccecs 


A pointer to a Value Descriptor is declared as follows: 
VALPTR: REF DBGSVALDESC 


Define the fields of the language-independent Value Descriptor. Also 
! define the declaration macro. 


FIELD DBGSVALUE_FIELDS = 
SET 


L. 


1 
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DBG$W_VALUE of RENE ODE Sh 4, wO_ }: ! Value of TOKENSW_CODE for constants 
DBGSW_VALUE_SIGN_ Cope =t 4; wil J, ' Sign code (Value of Unary -/+ 
: TOKEN W_CODE) for constants 
DBGSA VALUE -VMSDESC = oA ° ! Address of VAX/VMS descriptor 
DBG$B_VALUE_CLASS = - B35. J, ' DSCSB_CLASS sub-field 
DBESB-VALUE“DTYPE B » Be. de ' DSCSB_DTYPE sub-field 
BGSW_VALUE_LENGTH = - WO. J, ! DSCSW_LENGTH sub-field 
DBGSL_VALUE_POINTER = g. L ° ! DSCSA_POINTER sub-field 
BG$B_VALUE_SC = , 80. J, ! DSCS$B-SCALE sub-field 
DBGSB_VALUE_DIGITS = {( 7, g'. ° ! DSCSB_DIGITS sub_fi 
—— oer = (7, 19, 1, 0], ! DSC$V_FL_BINSCALE  sub-field 
DBGSL_ VALUE *etret. d ' DSCS$L_POS sub-fie 
— VALUE A ADDRESS = Be a de ! First byte of value 
DBG LUE_VALUEO = —— ae ! First longword of value 
ote VALUE “VALUE! =(€9, LL ! Second longword of value 


MACRO 
DBGSVALDESC = BLOCK C,LONG] FIELD(DBGSDHDR_FIELDS, DBGSVALUE_FIELDS) 2%; 


! Define the ‘base size’’ of a value descriptor in longwords. For the cases 
! where the value is actually stored in the descriptor, the total size 
: =, Se base size plus the number of Longwords needed to hold the actual 
vy . 
' 
LITERAL 

DBGSK_VALDESC_BASE_SIZE = 8; 
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' 
i 
i 
i 
: 
L 


ITERAL 


MACRO 


MACRO 


MACRO 


LITERAL 


OLD DEBUGGER DEFINITIONS 


These definitions are used by old Debugger modules which also need to 
use the new RST (and other) definitions. 


! constants *24 to identify individual rst flags 
rst$f_global = 1, 

rst$f_nonzlength = 2, 

rst$f_modset = 3; 


Get the srm type address from a dst with address calculation commands 
The type is following the name string 

7 = size of fixed portion of dst 

1 = byte to ase count of name — 

ds tldstr, nane) = contains count of characters in name string 


add this distance to base address to get address of byte 
containing the srm type 


CAD_SRM_TYPEA(DST) = 
( .DST + 7 + 1 + .DSTCdst$b_name) ) 2%, 


! Get the srm type from a dst with address calculation commands 


CAD_SRM_TYPE(DST) = 
( .(CAD_SRM_TYPEA(DST))<0,8,0>) 4%, 


! Get the address of the calculation commands in a dst which contains 
: them. They start one byte past the srm type. 


CAD_COMMANDS(DST) = : 
( CAD_SRM_TYPEA(DSI) + 1) 2; 


RST_UNITS( bytes ) = 
( ((bytes) + Zupval-1)/Zupval ) 


1: 

! DEBUG tells the RST module about ASCII 

! strings by gessing a@ counted string pointer. 
CS_POINTER = REF VECTORC1,6YTE) 2%; 


! We will never print 8 Peisgt tect when the 
upoee bound for ‘‘symbol’’ is 0 and when 


e offset is greater than RST_MAX_OFFSET 
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‘6 
i 
i 
i it 
i 
i 
ie 


RSTSK_MAX_OF FSET = %x'100'; 


Since pcope definitions are recursive, we must 
stack ROUTINE BEGINS in the routine ADD_MODULE. 

$s no cotns *eence that this stack Limit is the 
same as the Limit on the Length (in elements) of 
symbol pathnames. 


LITERAL 


MAX_SCOPE_DEPTH = dbg$k_max_pathname; 
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! Routines can be nested to a maximum depth. 
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FIELD 
, VALULFIELD_SET = 


VALU_NT PTR 2 0.0,32.0 J. ! Associated NT pointer. 
tes, MURVACUE = i 078735" : ! The actual value. 


‘6 
: Declare an occurrence or REF to a VALUE_DESCRIPTOR 
: via the following macros. 


LITERAL 
VALU_DESC_SIZE = 8; ! Each one is 2 longwords long. 


VALU_DESCRIPTOR = BLOCKC VALU_DESC_SIZE, BYTE J] FIELD( VALU_FIELD_SET ) 2%; 
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oe 
Array Bounds Descriptor 


An array bounds Descriptor is used to pass around 4 | needed 
information about an array and Hts associated dimensions. 
Like VALU_DESCRIPTORs, they are simply 2-longword blocks, 
but this might change. 


| -----=Longword-----! 


i address of array ! 


! Length of array ! 


Such Descriptors must be accessed via the following 
field names. 


‘ 
i 
H 
i 
; 
i 
i 
i 
i 
; 
i 
i 
i 
; 
i 
i 
i 
- 
FIELD 

, ARRAY.BNDS.SET = 


ARRAY_ADDRESS = f 0.0.35 -8 }- ! Beginning address of array. 
ong, nee = 0 ! Size, in bytes, of array. 


te 
! Declare an occurrence or REF to an array bounds 
: descriptor via the following macros. 


LITERAL 
ARRAY_BNDS_SIZE = 8; ! Each one is 2 longwords long. 


MACRO , 
ARRAY_BNDS_DESC = BLOCKC ARRAY_BNDS_SIZE, BYTE J] FIELD( ARRAY_BNDS_SET ) 2; 
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LITERAL 


SL_ACCE_INIT * 9. ! See above. ‘‘SL*’ ==> SAT/LVT 
St_ACCE_RECS =i, 
SL_ACCE_SORT = ¢: 
SL-ACCE_FREE = 3; 


te 
' You declare an occurrence or REF of an SAT datum via 
: the macro, SAT_RECORD. 


MACRO 
SAT_RECORD = BLOCKC J FIELD( sat$fid_def ) %; 


— — — — — — — — — — — — — — — — —— — —— —— — — 
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14 
i Now we bring in the GST definitions directly from STARLET.REQ. 


The format of one ef these concatenated GSD records is a single 
jeaging byte conta nine the value 1, indicating that the record 
is indeed a GSD record. 


Each entry in the record has a fixed number of overhead 
bytes followed by a symbol name that is a variable number of 
tes. The entrie n we are interested in process ing are the 

n 


b 

al symbol definitions and entry point symbol and mask 
oF 88h  Fzmbe The other def ee type. P he | yet Teitlon. 
noted only because it must be guccess fut ly passed over. The 
format of each of these types is illustrated below: 


Global symbol definition: 


0 ! GSD type 1 ! 
1 ! datatype ! ignored for now 
¢ : flag : bit 1 set means that this is 
: bytes ; a definition. ignore bit 0. 
4 ! psect index ! ignored. 
5 Saas | 
value : 4 bytes 
9 ween 
: symbol : stock counted character 
: name : string. 


The entry point symbol and mask definition entry is identical to 
= diFion 0 symbol definition illustrated above, with the 

ition of a two byte field for the procedure's Lon ane save 
— - This two byte field is located after the symbol value 
field (which is an entry point address). 


0 ! GSD type 2 ! 

1 1 date type! ignored for now 

4 , fle ——— not relevant for 
: ytes ; entry point def. 

4 ' psect index ! ignored 


— 
' 
' 
' 
— 
' 
‘ 
' 
' 
— 
— 
' 
— 
‘ 
' 
' 
' 
' 
' 
' 
— 
' 
' 
— 
' 
— 
i 
i 
— 
— 
' 
' 
‘ 
— 
‘ 
' 
] 
— 
— 
— 
‘ 
— 
‘ 
‘ 
— 
— 
— 
— 
— 
— 
— . 

; 5 ; value : 4 bytes 
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S ! register : ignored, 

10 ' save mask i! 2 bytes 
: symbol : stock counted character 
: name } string 


The procedure definition with forma 72 doser ipe tons is 
identical to the “GSD type definition above with the addition 
of fields that describe each formal argument. 
ean | the symbol name there is one byte no 8 od i the minimum 
4 —— allowed, and one byte containing the maximum 
° nts. 
These bytes are followed by a series of records of 2 - 257 bytes 
that describe each of the formal arguments (the number of these 
records is equal to the maximum number of arguments for the procedure. 


0 ! GSD type 3 ! 
1 ! datatype ! ignored for now 
¢ 4 flag $ bit 1 set indicates that this is 
: bytes : a definition. Bit 0 ignored. 
8 ! psect index ! ignored 
1 J 
5 ; value } 4 bytes 
9 4 register “a ignored, 
10 ! save mask ! 2 bytes 
" ect ee 
: symbol : stock counted character 
: name : string 
! min # of args ! 1 byte 
! max # of args ! 1 byte 


' formal arg #1 ! 
! description ! 
$ — 


! formal arg @n ! 
! description ! 


DBGLIB.REQ;1 16-SEP-1984 16:48:58.45 Page 162 


Format of each formal argument description. 


0 ! arg value ctl ! 1 byte 
! remaining byte! 1 byte ( 0 = 255 ) 
! detailed : 
! argument ; 


i description ' 


PSECT definition: 


! GSD type 0 ! 


! alignment ! 
: fla } 
: bytes : 


*-* wn —- oo 


' 

1 

1 

' 

' 

1 

1 

' 

‘ 

1 

' 

' 

' 

1 

1 

1 

1 

1 

J 

J 

J 

J 

1 

' . . 

: allocation } 4 bytes 
' wna renee eee See eee 

i 8 ' ' 

: : symbol : stock counted character 
: 4 name : string. 
i . 

1 
' 
i 
i 
i 
i 
i 
' 
] 
J 
—1 
t 
1 
J 
1 
' 
J 
1 
J 
a) 
! 
' 
' 
n 


The format of GST records is defined as a BLOCK 
(even though the records are variable sized) 
with the following fields: 


FIELD 
ser FIELD_SET = 
GST_ENTRY_TYPE = J, O.8 Bs ! Type of GST record. 
GST~1S_DEFN = : 9.4 1 }: ! this flag implies whether o no 
! the record is an entry definition. 
GST_VALUE =C 5,0,32,0 ], : The value of the 
i 


oba 
(This won't work for PSECTs) 
GST_P_NAME_CS =(C 8,0, 8,0], Character count of psect name 
! The ot Lewtng é geirs are Teter 
' exclusive. he first one is for 4 
' records of type GST GLOBAL 
i second is for GST JERTRY OOEFNE — “6ST * PROC _DEFN. 


GST_G_NAME CS =[( 9,0, 8,0], ! The symbol name is a counted string. 


|) 
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{LITERAL 


GST_G_NAME_ADDR = (10,0, 8,0 J, 


GST_E_NAME_CS = (11,0, 8,0 J, 


GST_E_NAME_ADDR = (12,0, 8,0 J, 

GST_P_MAX_ARG = f 1,0, 8.0 }. 

GST“PREM-CNT = 1.0, 8.0 
TES; 


+ 
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! A dotted reference to this field 

! picks up the count, an wncestee 

! one ——2 94 counted string. 

! The name * ng itself. An undotted 
} reference is _ address of the name, 


a dotted one the ist character. 


The entry name is a counted string. 
A dotted reference to this field 
picks up the count, an undotted 

one addresees the counted string. 

The name syr ng itself. An undotted 
reference is the address of the name, 
a dotted one is the ist character. 
Maximum number of formal arguments. 
Remaining byte count of argument 
descriptor. 


You declare an occurrence or REF of a GST datum via: 


LITERAL 
GST_RECORD_SIZE = 43; 


! Each GST record is at most 43 bytes long. 


GST_RECORD = BLOCKC GST_RECORD_SIZE, BYTE) FIELD( GST_FIELD_SET ) 2%; 


GST_PSECT_OVERHEAD = 9 
GST~GLOBAL_OVERHEAD = 10, 
GST-ENTRY_OVERHEAD = 12, 


GST_ARGDSC_OVERHEAD = 2, 
GSTMINMAX-OVERHEAD = 2. 
GST“RECORD-TYPE = 0, 
GST~TYPE = 1; 


+ 


: The GST record types are defined as: 


LITERAL 


! GST types: 
GST_LOWEST = 


Minimum number of bytes in psect def 
Minimum number of bytes in a global entry 
Minimum number of bytes in en ry 

point symbol and mask definition 
Minimum size of formal argument descriptor 

! Size of min. and max. overhead in GST 
Type of GST record 
Record Type is GST 


We don't support global PSECTs now. 


P-SECT record. 

A global symbol definition record. 

An entry point definition. 

A procedure with formal argument desc. 


Highest one we support. 


— | 
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lee 

' BLISS uses ‘non-standard’ DST records to encode 

! most of its local symbol information. These records 
' are Like most DST records except that the TYPE 

' information is variable-sized. 


FIELD 
Ser BLZ_FIELD_SET = 
BLZ_SIZE =C€ 0,0, 8,0], ! First byte is record size in bytes. 


! The next byte contains OSCSK_DTYPE_Z, or we 
! wouldn't be applying this structure to a given 
! DST record. 


BLZ_TYP_SIZ =C 2,0, 8,0], Type info takes up this 


i] 
! sony bytes. 
BLZ_TYPE =C€ 3,0, 8,0], ! which type of type Zero 
! this corresponds to. 
BLZ_ACCESS =C€ 4,0, 8,0], ' Access field. 


! Sub fields of _ACCESS are offset from beginning 
' of the BLZ record. 


BLZ_ACCES_TYPE = 4,0, 2.0], ! Type of access, 

BLZ_ACCES_BASD = 4,2, 2,0], ! based or not, 

BLZ_ACCES_BREG = 4,4, 4,0 J, ! associated register. 
BLZ_STRUCT = f 5.0.3.0 }- ! Type of STRUCTURE reference. ; 
BLZ_REF = Dolele® Js ! Indicates whether symbol has REF attribute 
! #ee@ The following only work when BLZ_TYP_SIZ is 3. 
BLZ_VALUE = f 6.0.3.0 1. ! DST VALUE field. 
BLZ_NAME_CS = { 10,0, 8,0 J, Th 


e symbol name is a counted string. 
A dotted reference to this field 
picks up the count, an undotted 

one addresses the counted string. 

The name spring itself. An undotted 
reference is the address of the name, 
a dotted one is the Ist character. 


! The following fields are in the variable length part of the DST record. 
! They should only be applied once the structure type has been determined 
! or errors could result. 


BLZ_NAME_ADDR = (11,0, 8,0, 


U_ALLOC_STRUC = - Oo, 3. 8 - ! no of units alloc (except BLOCKVECTOR) 
U_ALLOC_BVEC = £10, 0, 32, 0), ! no of units alloc for BLOCKVECTOR 
STGN_EXT VEC = (10, 7, 1, 0), ' sign ext field for VECTOR 
UNIT-SIZE_BLOCK = (10, 0, 3 ! unit size for BLOCK 

UNIT-SIZE“BVEC = (14, 0, 8, }° ! unit size for BLOCKVECTOR 
UNIT_SIZE-VEC ={(10, 0, 4, 0 ! unit size for VECTOR 


—— — — — — — — — — — — — — — — — — 
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: You declare a REF to a BLZ_DST datum via: 


LITERAL 
BLZ_REC_SIZ = 54; ! Each DST record is at most 54 bytes long. 
MACRO 
BLZ_RECORD = BLOCKC BLZ_REC_SIZ, BYTE] FIELD( BLZ_FIELD_SET ) 2%; 
‘+ 
! The type zero sub {Pes 
' as defined in CP0021.MEM, 
! must be within the following 
: range. 
LITERAL 


! Type Zero Sub-Types: 


BLZ_LOWEST = 1, ! Lowest variable type we support. 
BLISS_Z_FORMAL = 1, : yet wey of a ROUTINE formal. 
BLISS_Z_SYMBOL = 2, ! A BLISS LOCAL symbol. 

BLZ_HIGHEST = 2; ! Highest variable type we support. 


————————4—4—————————————————— — — — — — — — — — — —— — 
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+ 


Dummy descriptors 
we must bu 


ne the 
t 
manager. 


The global variab 
item on the List. 


—————————— — — — — —— te te —— —— 


LITERAL 


size in bytes of the dummy 


le 


item. 


Each entry on the Linked List is a 3 longword vector 


1 
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Whenever a type DSCSK_DTYPE_CAD item is yen accessed by descriptor 
ld a dummy one in free storage an 

in it. The address of this dumm 
of the egy (ol in referencing t 


put the current address 
descriptor is then used by the rest 

To be able to free up all this 

ems are kept on a Linked List. At the end of command processing 
is (ist is walked down and all the space is returned to the free storage 


DBG$GL_DLISHEAD if nonzero points to the first 


Ow 


Size in tongwords of entr 
Pointer to next item on List 


Pointer to dumm 
Size in bytes o 


t 


descriptor 
descriptor 


on List 
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